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A maxim which eloquently describes the Brother 
HR-5. 

Less thana footacross, it’s nonetheless loaded with 
features. 

The little printer that’s low on decibels. 

There’s one thing the HR-5 won't give you. 

Earache. 

For the annoying ‘clickety clack’ many printers 
produce is mercifully absent from the HR-5. 

Quietly efficient, it delivers high definition 
dot matrix text over 80 columns at 30 characters per 
second (maximum). 

Text or graphics with ease. 

The HR-5 also has something of an artistic bent. 

Being capable of producing uni-directional 
graphics and chart images together with bi-directional 
text. What’s more it will hone down characters into 
a condensed face, or extend them for added emphasis. 

At home with home computers. 

Incorporating either a Centronics parallel or 


REGULAR, CONDENSED, OR 
EXTENDED FACES. 


CUT SHEET A4 OR ROI 
PAPER. 


BATTERY OR MAINS 
OPERATED. 





RS-232C interface, the HR-5 is compatible with BBC, 
Spectrum, Oric, Dragon, Atari and most other home 
computers and popular software. 

Perfectly portable, the battery or mains operated 
HR-5 weighs less than 4 lbs, and has a starting price 
of only £159.95 (inc. VAT). 

Which is really something to shout about. 
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LL 
Computing Today is constantly on 


the look-out for well written ar- 
ticles and programs. If you think 
that your efforts meet our stan- 
dards, please feel free to submit 
your work to us for consideration. 

All material should be typed. 
Any programs submitted must be 
listed (cassette tapes and discs will 
not be accepted) and should be ac- 
companied by sufficient documen- 
tation to enable their implementa- 
tion. Please enclose an SAE if you 
want your manuscript returned, all 
submissions will be acknowledg- 
ed. Any published work will be 
paid for. 

All work for consideration should 
be sent to the Editor at our Golden 
Square address. 
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hat occurred last month, plus our usual 
round-up of the latest news items. 


THE EXCELLENT xi....15 


The original white Apricot received praise 
and awards when it was launched. Now in 
a duskier case, the Apricot xi features a 
hard centre: 5 or 10 Megabytes of 
Winchester disc built-in. Read on to find 
out our reviewers opinion of this 
evolutionary step. 


LEVEL 9’s 
ADVENTURES.........20 


From the company that makes a BBC 
Model B look bigger than a mainframe, 
comes a range of text-only Adventures 
that enthralled ourreviewer. And that's not 
easy... 


MODE 7 SCREEN 
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With the limited memory of the BBC, 
Mode 7 is a godsend. Unfortunately it isn't 
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terribly easy to use to the limit of its 











capabilities. Until now, thatis. This screen 
editor will solve all your problems. 


GENIE SALLE. .s.isti0ae 
Strictly speaking sprites are hardware- 
generated graphics, but if your machine 
doesn't have the necessary, you can still 
simulate them with software. Here's a 
routine for the Genie to do just that. 


NEW TEXT FOR OLD... 33 
The 20-column modes on the BBC and 
Electron are useful graphically but make 
text look pretty horrible. This machine 
code routine will allow you print strings of 
text in a new typeface with proportional 
spacing. 
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Drive away those micro editing blues with 
this Spectrum program that works just like 
the ones on those big brother main- 
frames. 
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So you thought you couldn'thave windows 
on your TRS-80? This article will prove you 
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can be adapted for other Z80 machines. 
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Our monthly look at a selection of titles 
from the publisher of computing books. 
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then this simple database for the BBC is 
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storage and variables, and provide a hat 
trick of new keywords for our extended 


BASIC system. 
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NEW DIRECTOR 
FOR OSBORNE 


Osborne have added the 
award-winning ‘Financial 
Director’ software to the list of 
business software supplied with 
the Osbome Executive per- 
sonal computer, making it a full 
specification machine for just 
£1595 (excluding VAT). 

The Osbome Executive is a 
portable personal computer, 
with a valuable range of 
leading- brand business system 
software, which includes — for 
word processing — Wordstar 
with Mailmerge, Supercalc 
spreadsheet, the Personal 
Pearl database system and 
Financial Director cash book 
and management accounts 
system. Also included are 


industry standard operating 
systems and programming 
languages. 


Mike Healy, Managing Dir- 
ector of Future Management 
(Portable Computers) Ltd, sole 
UK distributors of the Osborne 
range says: “With the addition 
of Financial Director software 
on the Osborme Executive, | 
believe we offer unques- 


emulating terminals. 

The link between the Solaris 
PCE and its host terminal is sim- 
ple to understand and to com- 
plete. Only a screwdriver is 
needed to make the connection 
between the terminal and the 
mainframe. 

The Solaris PCE is expecially 
important for data processing 
and department managers who 
need local processing capa- 
bilities from their mainframes. 
These managers recognise that 
most of the installed data pro- 
cessing systems are by design 
efficient but inflexible 

The installation of a Solaris 
PCE preserves a company’s 


the best value for 
professional business 
available. With an 
hardware and 


tionably 
money 
system 
inclusive 
software price for the Osborne 


Executives of £1595, we 
challenge anyone to beat this 
specitication. 

"As is evidenced in many of 

the complaints upheld by the 
Advertising Standards Authori- 
ty, we are disturbed that 
consumers are being misled 
over the presentation of the true 
cost involved to achieve an 
business system. In 
some instances, the true cost of 
a full business system is three or 
even four times the basic price 
advertised as the cost of 
entry.” 

The business software pac- 
kages offered with the Osbome 
Executive are valued at £1500 
(recommended retail price) by 
Mr. Healy (but I bet he wouldn't 
sell you an Executive for £95 
without the software! — Ed). 

Future Management are at 
38 Tanners Drive, Blakelands 
North, Milton Keynes, MK14 5LL 
(phone 0908 615274: telex 
825220). 


effecti ve 


existing investment, terminals, 
software and training. It pro- 
vides complete personal com- 
puting capabilities for those 
people who need it. 

An important productivity- 
enhancing feature of the system 
is that the screen can be split to 
show, simultaneously, informa- 
tion trom both the mainframe 
and the PCE. A 40-position 
auxiliary keypad allows direct 
generation of IBM PC specific 
control codes. Part of Solaris’ 
plans for upgrade of the IBM PC 
system include protocol con- 
version, gateways and file 
transfer. The central resource 
manager will perform in a true 
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CLOSE SESAME 


The Sesame Security key is a 
simple-to-use software protec- 
tion system which provides a 
high level of software security. It 
is interrogated by the software 
and responds only when a uni- 
que code is passed through it, 
thus ensuring that direct copies 
of the program will not run on 
any computer which does not 
have the correct device con- 
nected. 

Designed by a Cam- 
bridgeshire firm, FT Microsys- 
tems and marketed by Polytec 
pic nr eigkes the device is use- 
able with any computer having 

an RS232 port, without inhibit- 
g the normal functions of the 
ie nany way. All25 lines of its 
D ty pe connectors pass through 
the device unaffected. It needs 
no external power and requires 
that only Transmit data, Receive 
data and signal ground be 
supported. 

The software must interrogate 
the device by passing its own 
unique code through it. The 
code will activate the device 
which will respond only if the 
correct code is sent. The codes, 
of which there are approx- 
imately 100 million variations, 





distributed processing mode 

with the corporate network. 
The PCE contains an INTEL 

8088 eee unit ae 


and runs 16-bit MS/DOS and 
other operating systems used 
ontheIBM PC. It utilises 128K of 
random-access memory (RAM) 
that is expandable to640K and 
comes with 5!4" (360K) flexible 
discs. The circuit boards are 
IBM PC-compatible which en- 
sures low-cost reliability, and 
guarantees compatibility with 
any expansion boards used in 
the IBM PC. 

Provided with the PCE is an 
auxiliary keypad allowing direct 
generation of control codes that 
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are ASCII control characters 
which would not normally affect 
any other device using the port. 
Due to the nature of the device 
even an infinitely fast computer 
would take around 20 years to 
test all the possible combina- 
tions, thus making attempts to 
crack the device totally un- 
ecomonic. 

Each device is supplied with 
a randomly selected code, to- 
gether with notes on use and a 
flow chart of the necessary in- 
terrogation procedures. Identi- 
cal codes can be supplied for 
multiple orders. The program- 
mer can design his interrogation 
routine in any language he 
chooses that allows him to 
access to the port in the normal 
way. He should use his ingenuity 
to disguise the interrogation pro- 
cedures within the program he 
wishes to protect and thus make 
it very difficult for anyone to 
crack his program. To this en 
no standard software is supplied 
with the unit, only the necessary 
information to write it. 

For more details contact Poly- 
tec Engineering Services Ltd, 


Unit 8, Nuttield Close, Trinity 
Hall Fa arm Industrial Estate, 
Cambridge CB4 1SS (phone 
92 21)95GR9 
449 514002 


would otherwise take a number 
of keystrokes to accomplish. 
The PCE has abattery back-up, 
so that no data is lost in the 
eventofapowerfailure, andthe 
1QM of Winchester disc storage 
which is available as an option 
is fully compatible with the IBM 
XT, and fits within the unit hous- 
ing. The system is priced at 
£27795 inthe UK, whichincludes 
atfulll2 months on-site warranty. 
Upgrades to provide local-area 
networking and distributed data 
processing will be available in 
1985. TDI Workstations are at 
29 Buckingham Gate, London 
SW16NF(phone0O1-8266047). 


Me 


rr a 


TRASHMAN OF THE YEAR 


Who is, believe it or not, your 
own beloved editor. At New 
Generation's promotional party 
acouple of weeks ago, the com- 
puter Press were competing for 
this coveted title (and the 
accompanying free weekend 
for two in Paris). The editor of 


Personal Computer Games, 


Chris Anderson, got away to a 





TANDY’S 2000 


The latest microcomputer to be 
launched by Tandy in the UK is 
the high performance MS-DOS 
system, the Model 2000. Aimed 
at the professional user, it uses 
an Intel 80186 16-bit micro 

processor, almost three times as 
fast as other MS-DOS based 
systems currently in the ergs 

place. The Model 2000 disc 

ae (5'4" floppy disc) ‘ae 
over four times the storage of 
drives in competitive com- 
puters such as the IBM-PC. The 
system also has twice the colour 


resolution (640 by 400) and 


THE DISC THAT IS 
NOT ROUND... 


. the arrow that is not aimed, 
nd other Samurai phrases. In 
contrast to the normal direction 
ofimports and exports, the British 
company Expert Systems Ltd 
has signed a contract with a 
Japanese company to dis- 
tribute their range of Prolog- | 
interpreters in Japan. Expert 
Systems’ version is in advance 
of Japanese developments in 
Prolog, and is leading to asoon- 
to-be-announced expert sys 
tem development tool. 

The photo, we think, shows a 
representative of Expert Sys- 
tems offering a demonstration 
disc to aleadingJapanese com- 
puter expert. Doesn't it...” 
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finish which left everyone else 


ness wit tha 


standing (third place was lony 
Eo eae 1 of PCW ee 
3100- odd). Thanks f orth rASP 


guys 
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as many colours (eight) 
and optionally features a built 
character 


A wide range of programs will 
run on the Model 2000 includ- 
ing PFS, Microsoft- W ord with it 
state-ofthe-art interactive MS 
windows, word processing, 
aes and filing, Microsott- 

Multiplan spreadsheet analysis 
to the Thinking Softw: 
and a balk ke sions DIo- 
gram allowing access with 
major information networks. 
The modular 2000 has a 
detachable low-profile ial 
board and optional Digi-Mo 


GANS series, 


for easy cursor movement. Its 
128K RAM is expandable to 
ale 


/68K and it is available with a 
high resolution monochrome 
monitor with 12” non-glare 
green sie my screen or a 
col monitor with a 14° 
een . The case is white, and 
1as an 8 2" by 12%" footprint. 
If you're shopping around for 
other pid Saad though, a 
new comprehensive full colour 
catalogue of the full range of 
Tandy computers and ancil- 
laries is now available free of 
charge from all228 Tandy stores 
and participating esi 
Containing 47 clearly illus- 
trated pages itincludes concise 
information on the T land dy ranges 
of large and small desk-to 


transportable models, home 

educational } 

puters as well as details 

various operating systems a 

applications software. It also 
ri 


features printers, accessories, 
educational systems and a 
~ 


wide variety of com 
training S 
clearly. detines the user area, 
specifications, price, and sum- 
mary of special points. 

Tandy’s high street computer 
centres will normally carry ne 
| range of equipment ems 
fad 1 the catal ogue but it will 
lly useful as a 
ice in other outlets where 
neo a limited computer stock 


ea? 
session 


+ =a 


is carried. 

Copies of Tandy's 1984 Micro- 
computer Catalogue may also 
be obtained from Tandy's mar- 
ketin department at Tameway 

ower, Bridge Street, Walsall, 
West Midlands, WS] 1LA 
(phone 0922 648181). 
eres British Telecom's 





com Gold, is now availab. 
privileged regis tration. price at 
£19.95 to individual customers 
who purchase computer pro- 
ducts at Tandy computer cen- 
tres or already own a Jandy 
computer. 

Tandy Corporation and | ¢le- 
com Gold have produced the 
Infocomm package which e€n- 
ables a customer to join the 
Tandy electronic mail user 
group and benefit trom a wide 
range of Telecom Gold Inter- 
national Dialcom Network Ser- 
vices. These include instant 
correspondence, telex, radio 
paging, external database sys- 
tems, information storaq 
Telecom Gold's Helpline facili 
ty, and there is the added 
advantage to the Tandy cus- 
tomer of being able to communi- 
cate directly with Tandy com- 
puter centres and the Tandy 
customer service group. 

The package contains regis- 
tration documents and a guide 
to the service. The application 
is mee arded from the compute 

ntre to Telecom Gold a S 
user is shortly a ilo cated a mail- 
box number, a straightforward 
guide to slechon ic mail, a 
teach yourself tutor and a tele- 
phone Helpline number. 

Training session 
able at Tandy conputet cen- 
tres (£39.95 for a2 day course) 
to help customers maximise on 
the service and their particular 
equipment 


Wed like to offer our con- 
gratulations to ex-editor of 
. a = wa 
Computing Today, en 
Budgett, and his wife Jennie, on 
their marriage last month. Can 
we expect the pitter-patter ol 
tiny peripherals soon? 


DRG MEAN 
BUSINESS 


DRG Business Systems have 
launched a major attack on the 
fast growing market ie com- 
puter systems for the small busi- 
ness. Through their 
Microsystems Division, DRG 
have announced a low cost 
microcomputer package 
called The Business Manager 
at an entry price of £2995 

The Business Manager is 
based on the Apricot Mic- 
rocomputer, voted the Best 
Business Microcomputer ol 
1984, and has been designed 
specifically for 
business computer user in thatit 
includes all the hardware and 
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CARRY A CASIO 


Extending the Casio computer 
range is their latest FP200 
design, an A4 size unit ideal for 
carrying in a briefcase. This 





handy personalcomputerhasa 
built-in Spread sheet’ function 
using CETL (Casio Easy Table 
Language) for easy structuring 
and manipulation of tabular 
data. The FP200 also supports 


extended BASIC | language. 

1e liquid crystal display, 
which can be adjusted for 
optimum visibility at any view- 
ing angle, has eight lines each 
of 20 characters for easy eu 
ing of table format ts, with d 
positioning indexed und er CETL 
through simple file Bo 
column address. Altemativel 
for graphics, the LCD offers | 60 
by 64 dot placings. 

CETL has only 16 fundamen- 
tal commands to handle all 
data editing, processing and 
input/output. It is therefore very 
easy to learn. 

In standard form, th 1e FP200 is 
supplied wi pene RAM and 32K 


ROM. Ithas anRS232C modem 
port, ee tronic {S Sar printer 
port, plus a cassette socket with 


ate we ony off. ae ory expan- 
sion is possible in8K steps up to 
32K RAM and up to 40K ROM. 


NEWS 





The Casio FP200 mainframe 
— Ed) isacompact310 by 220 
by 59/2 mm unit, weighing 
barely 1% kilograms and fitting 
neatly in a briefcase for carriage 
nd on a lap for active use. 
Based on the 80C85 processor, 
it is powered by four AA size 
batteries, with an extra pair of 
AAs for memory protection. 

Optional accessories include 
AC mains adaptor and the 8K 
RAM and ROM packs, while 
attachments available include 
four-colour mini plotter- printer, 
RS232C modem lead, and the 
cassette lead. 

The Casio FP200 handy per- 
sonal computerstarts at arecom- 
mended retail price of £345 plus 
VAT: sales enquiries to Casio 
Electronics Co Ltd, Unit Six, 
1QQ0 North Circular Road, Lon- 
don NW2 ‘7JE (phone 01-450 
9131). 





software requirements of a 
small business, together with a 
comprehensive package of 
computer supplies sufficient for 
at least three month's normal 
usage. 

Software provided with Busi- 
ness Manager includes a 
general ledger accounting sys- 
tem modelled closely on a 
manual book-keeping system 
which allows the user to imple- 
ment the system quickly and 
with minimum disruption to the 
normal operations of the busi- 
ness. As the user's experience 
of the system grows, the system 
grows, the full facilities of a 
highly sophisticated com- 
puterised accounting system 
can be implemented on a 
gradual basis to accommodate 
the requirements of the par- 
ticular business. Upgrades to 
the system can be added with 
minimal disturbance to normal 
operations. 

A spreadsheet business and 
financial planning package is 
included with the system to 
allow the small business to 
develop powerful models of 
business operations, and to 
produce forecasts of business 
activity and cash flow, pre- 
viously inconceivable for the 
small business. If desired, this 
package can be upgraded to 
allow results of a business 
model to be presented in 
graphic form, to allow trends to 
be more easily interpreted. 

Wordprocessing software 
allows the creation of letters, 
memoranda, reports, and mail- 
ings. The wordprocessor also 
includes a flexible mailing list 
facility for the production of 


standard letters and a spelling 
check utility to eliminate typi: ng 
errors. Full facilities are avail- 
able to create dictionaries for 
specitic trade nomenclature 
and jargon, thus reducing 
dramatically the requirement 
for typing staff to be fully trained 
in the ‘language’ of any 
specitic business. 
Communications facilities 
allow the user to establish a link 
with other microcomputers. 
And if desired, an on-board 
autodial modem is available 
giving access to Telecom Gold 
(an electronic post system) 
which allows instant distribu- 
tion of messages to remote 
offices, as well as the capability 
to transmit telex messages 
direct from the computer 
keyboard. Further upgrades 


are planned to allow full access 
to the Prestel nr ea 
system. 


A calendarand addressbook 

database package is provided 
allowing the user to store 
details of customers, suppliers, 
and important dates in an easy- 
to-use format. 

The software provided is all 
accessed via a_ specially 
developed menu system with 
on-line help facilities which 
allow the user full access to the 
facilities available without 
specitic computer knowledge 
or experience. More sophis- 

cated users can upgrade this 
system by developing their own 
menus to further assist their staff 
in getting to know the system. 

A high quality dot matrix 
graphics printer is included in 


“hist tgpppggpam nny 


the package for computer out- 
put, and a letter quality 
daisywheel printer can also be 
connected if typewriter quality 
output is a priority. All 
necessary cabling and connec- 
tions are supplied as 
standard. 

The DRG Business Manager 
package is only available from 
the nationwide chain of DRG 
Microdealers who are equip- 
ped to supply the local back-up 
and support necessary to 
ensure that users obtain max- 
imum eal ss tio n the system. 

For further information con- 
tact Chie pete esay/Linda 
Good DRG Business Systems, 
Microsystems Division, 13/14 
Lynx Crescent, Winterstoke 
Road, Weston Super Mare, 
Avon (phone 0934 32525). 
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BET ON 
QUICKSILVA 


The Argus Press Group, pub- 
lishing arm of British Electric 
Traction (BET) has acquired one 
of Britain's leading computer 
games software companies, 
Quicksilva Limited and its US 
associate, Quicksilvalnc, foran 
undisclosed amount. 
Quicksilva, founded four 
years ago by software entre- 
preneurs Nick Lambert and John 
Hollis, was one of the first com- 
panies to produce highly visual, 
fast-action games for popular 
makes of microcomputers. 
Quicksilva Inc operates as a 
sales and marketing am through- 
out the USA for Quicksilva pro- 
ducts and those of other British 
software houses, including Vir- 
gin, A& F, and Salamander. 
Argus Press plans no major 
change to Quicksilva’s existing 
operations. It will continue to be 
run by managing director Rod 
Cousens as an autonomous 





W. H. SMITH'S 
BRANCH OUT 


On 1 June, the first W. H. 
Smith Business Computer Cen- 
tre — quite separate from the 
High Street branches — opened 
in Crawley, Sussex. This is the 
first of three centres opening this 
year in the south of England. 
W. H. Smith Business Computer 
Centres intend to become a 
national chain. 

Mr Val Lewthwaite, the W. H. 
Smith Divisional Director res- 
ponsible for the Business Com- 
puter Centres, said: 
“Computers are now very much 
part of our everyday lives, yet 
market research shows that 
about 70% of all small 
businesses have no computer 
of any kind. Microcomputer 
applications can be a huge 
help to small businesses and 
the professions. Through our 
W. H. Smith Business Computer 

| 


Centres we will help busi- 


company within the Argus Press 
Group, based at its Southamp- 
ton offices. 

Chief executive of the Argus 
Press Specialist Magazines 
Division, Jim Connell commen- 
ted, “Quicksilva have rapidly 
established themselves as one 
of the leading software com- 
panies within the United King- 
dom and this investment furthers 
our expansion within the soft 
ware market place. | am de- 
lighted that Rod Cousens will 
be continuing in his role of 
managing director of the com- 
pany to mastermind its ex- 
pansion.” 

Rod Cousens stated, “I look 
forward to working with a new 
board of directors who are com- 
mitted to the continued growth 
of Quicksilva. This marks anew 
era for the company. We are 
confident, enthusiastic and ex- 
cited at the prospect of future 
developments which will ena- 
ble us to maintain our position of 
prominence in the market.” 


aa 


nessmen and women make the 
best use of the new technology 
available to them. 

Key features of the W. H. 
Smith Business Computer Cen- 
tres will be: 

@ A large staff of highly- 
qualified communicators, com- 
bining considerable business 
and computer software 
knowledge. 

@ An emphasis on spending 
as much time with customers as 
isneeded. Said Mr Lewthwaite: 
“We want to understand the 
problems and opportunities of 
customers businesses. We 
must gain their trust and con- 
fidence and provide support in 
the way of service, advice and 
training.” 

@ A training room — calleda 
Computer College — is an 
integral part of each Centre. 
This will be run by an experien- 
ced software trainer. 

@ Flexible opening hours to 
meet the diverse needs of cus- 





A WORD IN YOUR 
EPSON 


Epson is including the Intext 
word processing and com- 
munications software package 
by Talbot Computers of Bour- 


tomers. Itis appreciated thatitis 
often quite difficult for 
businessmen to find sutticient 
time within their regular working 
schedule to learn about 
microcomputeIs. 

@ Comprehensive after-sales 
service — two engineers will 
work from a_ fully-equipped 
workshop at each Centre. 

@ Carefully selected sites in 
high traffic locations on the 
edge of town centres with good 
parking facilities. 

The W. H. Smith Business 
ComputerCentres are targeted 
at small businesses and pro- 
fessional firms. The relaxed yet 
professional approach will 
encourage customers to dis- 
cuss their business require- 
ments in everyday language. 
They willbe encouraged to sit in 
front of the product and use it 
extensively before purchase. 

Mr Lewthwaite said: “We 
want to build a relationship with 
our customers akin to that of a 
general practitioner in the 
medical profession. First of all 
we will undertake diagnosis to 
establish the nature of the cus- 
tomers problem; secondly, we 
will prescribe a solution; and 
third, we will undertake longer- 
term aftercare.” 

The computer hardware 
available at the W. H. Smith 
Business Computer Centres 
comes from WANG, ACT, 
Hewlett Packard and IBM. A 
wide variety of proven software 
suitable for business needs is 
stocked, as well as computer 
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nemouth with all HX-20 port- 
able computers shipped over 
the coming months. The 
software is provided as a ROM 
(read only memory) and comes 
with a comprehensive user 
manual. The package 
transforms the HX-20 into a 
powerful communications sys- 
tem for easy access across 
telephone lines to other 


databases or electronic mail 
systems. 
The Intext package allows 


the HX-20 to perform as a port- 
able memory typewriter with its 
own integral printer for proot- 
ing; a microcassette drive for 
storing text and an LCD (liquid 
crystal display) for viewing 
and editing. 

A text file of up to 12,500 
characters can be created on 
the standard HX-20, or 
increased to 29,00 characters 
using an optional 
expansion unit. Standard edit- 


c 
delete and search. Special 
function keys make it possible to 
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as a portable telex machine 
sending messages from any- 
where in the world. These can 
be automatically routed by 
Telecom Gold or through 
Talbot Computer's own Intext 
Users Group for a registration 
fee of £27 plus a monthly rental 
of £77. Altematively, messages 

can be sent directly to any loca- 
tion with an appropriate receiv- 

ing station using Talbot's 

Ennis Dialtext remote printing 


in E 
published by Prest el send and The Prestel Adaptor is pac- Hants NN8 2R 


Piss 
w 


W Vhile the HX-20 has its own 
integral microcomputer, it can 
also be used with external prin- 
ters for producing hard copy 
one communicates with other 

computer equipment including 
minis and mainframes. 

The Intext word processing 
with comms package, normally 
costing £75 plus VAT, is now 
included in ns standard HX-20 
price of £411 plus VAT. For 
further details, contactEpson at 
Dorland House, 388 High Road, 
Wembley, Middlesex HA96UH 
(phone 01-902 8892 : telex 
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The BBC Micro has now taken a giant 
step into the world of business computing. 
With the addition of its new Z80 
second processor, it is the first computer at 

anywhere near its price to become fully 
compatible with CP/M software. 

As most business computer users can 
verify, CP/M is the most widely used form 
of software in business today. 


For £299, you're well and truly 
in business. 

At £299, the Z80 adds 64K of usable 
RAM to the BBC Micro. And it allows you 
to use the CP/M 2.2 computer operating 
system. 

It’s extremely fast. 

And besides giving you access to a vast 
new area of software, it enables you to use 
GSX graphics—based programs, the pertect 
complement to the BBC Micro’ own 


superb graphics. 


The Z80 second processor comes com- 
plete with five CP/M business programs. 

To handle your word processing, there's 
MemoPlan. It’s a program with some highly 
sophisticated features, such as a safeguard 
against data loss through power cuts and 
the ability to show two documents simul- 
taneously on the screen. 

To form your CP/M personal database. 
there’s FilePlan. It stores names, addresses, 
telephone numbers, stock listings and 
more. And if you use it with MemoPlan, 
you can generate personalised letters, labels 
and mail shots. 

To produce forecasts and analyse 
eroups of figures diagramatically, simply 
use the GraphPlan program. This is incredibly 
helpful in working out vital business calcu- 
lations, converting them into graphs and 
charts. 

Meanwhile, in the book-keeping de- 


partment, there's the Accountant program. 


CP/M isa revistered trademark of Digital Research Inc. 


Now, the BBC 


Use it to enter day-to-day transactions into 
the computer. Then, at any time, you can ask 
the computer to produce lists, summaries, 
reports, audit trails and trial balances. You can 
readily expand this package to a fully ledger 
based system, complete with payroll and 
more. 

Finally, to help you to develop your own 
programs without having specialised experi- 
ence, the Z80 comes with another software 
package called Nucleus. It’s asystem generator 
which asks you 













questions 
and uses your 
answers to enable 
the system to write the 
program. 

You can use Nucleus 
directly with the Accountant 
program, or for specialised 
personal or business activities. 
Additionally, the Z80 package enables 


you to use three programming languages. 


Your BBC Micro instantly becomes 
multi-lingual. 

To simplify writing your own software 
with the Z80, there’s BBC BASIC. 

For running professionally written busi- 
ness programs, there's Professional BASIC. 

And then there’s CIS COBOL, the leading 
microcomputer version of COBOL, the 
language used in mainframe computer appli- 
cations throughout commerce and industry. 


With CIS COBOL, the Z80 also gives you 


two sophisticated programming aids. 





One is Animator, an award winning de- 
bugging tool which enables you to identify 
programming errors quickly and easily. 

‘The other is FORMS 2, which helps 
you to write your own interactive programs 
in COBOL. 

With all these sophisticated features, 

the Z80 package is exceptional value 
—_-= for money. Indeed, bought separately 
ese the programs and languages could 
cost as much as £3,000. 
See the Z80 at work. 

The Z80 second processor is de- 
signed to be used with the BBC Micro 
Model B incorporating a Series 1.2 
Machine Operating System and linked 
— toadual 80-track dise drive, a printer 

= and monitor. 
_— Ask your BBC Micro dealer to 
. show you just how far it can go in the 
world of serious businesse omputing. 
For your nearest dealer, ring 01-200 0200. 
Technical specification. 
The Z80 has a 641K Random Access Memory, 
running CP/M 2.2 which provides approx- 
imately 55K bytes of RAM for user programs. 
It operates at a clock rate of 6MHz. 
Powersupply is integral. Height, 
70mm.Width, 210mm. 
Depth, 350mm. 














The BBC Microcomputer System. 


Designed, produced and distributed by \corn Computers Limited. 






ee 


with no less tien ae maior 


YY — = A1KA A Tia Odl 
} f 
4 roa TAT ~ 4 +} ‘ ~ Neo ~ + ~y 
snows within tne space OI Qa 
. 
] 
vy wmrern p,' Y c 13*nyY ~ +a¥ 4 
nontmn 1Oul CULL nas Tea 
~ as or - Sm , 
tn DO - + Att taro = ~ayrY ke oY . 
lee. First OIL W Qs Woelre AL IUALL S 
f~ + ] ia 
m11r ry T Oc AYtAT TATION vA 
WwUULL, U rage SNOV W PLC © TW 
+ } SEIIY MmdET . YOmMaN.- 
the first MAIOIr / UDILIC AT 1111 
rf rT LOV 
te TF IM APT TNKY Woatarrcwye > is 
© ALLOli Ul Lilt 1e~eW Tange 1Vintsi 
ry - noc +r Y + c YY a 5 
macnines lrom tne japanese 
We te ] 4 4 
j rT = mane ~ y ’ r 
WS ele Cc S TO 4 Le 
| { +] 
Oy Ory lr or" a oO aYT=bb4 "SN YYD ET 
video interlacing ol their com 
yr . tarTK hy co ny ey" r \y 
p ALT i, Willell lo Ullt So} Bh oe 1ly 
AAA rw Cot ~y + + hh 
JiiSs It KI w v¥ hat u 4 * = + A 
™ +T » P 
- WT vy \ =) ee Y rs) ? ry) ¥ m ry 
Extrema! Viaeoinput POlronth S 
ermee CA 1 45 oa peas WrnAr - 
exds or He ) LISP Uy WiUC oo I 
~ —_ Ancormiant tw it ~~ i 
chip. WOneQuelli LS DOSSIDIe 
+ } TV " + 
cnyY y - i { y mY 5, Tr am C 
LW) tne Nas nacnh) © EO FE 
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hush-hush Dragon Beta with 
lots of memory, COIOUIS, bells 
and whistles, and a great deal 
of software. Two days later | 
read that they'd called the 
receiver in 

Star of the show for me, 
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Markplan’'s stand. 
They were exhibiting a remark- 
able gadget called called the 
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Supersoft’s Peter Calver sneaks a plug for his software at the Commodore Show. 
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lightning’ arcs from a central 
bulb to the inner face of the 
sphere. — colour of the 
discharge seems to 
depend on the charge density 
ntralbulbripples witha 
red ao w like the surface of a 
, while blue-green fingers of 
eam outwards. As you 
run your hands over the sphere, 
the lightning alters to flow into 
pattems around your fin gers. 
Microprocessor- controlled (of 
course), the thing is almost 
impossible to describe ade- 
quately oe I fell in love with it 
and I want one. Catch is, they 
cost ae £2000 each. Now if 
everybody reading this sent in 
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Star of the Office Automation 
Show at the Barbican for me 
s the Apple stand, with the 
Macintosh and Apple 
| up and running (until | 
crashed a2C. Harumph). I was 
to old. “that Apple are eau on 
chedule for their flat-screen 80 
me 25 portable dis ses y to be 
ready by Autumn fesse wait) 
and then wandered down tothe 
Macintosh classroom to play 
with the beast. After an hour's 
tuition by aslightly over-the-to] 
chap com plete with gown and 
mortar board, I entered the 
Win-an-Apple-Mac-a-day 
competition. Unfortunately | 
only got a consolation prize of 
a T-shirt covered i le 
advertising. Maybe I'll get it 
avuesninied ("T wen to the 
Macintosh stand and all I got 
was this lousy T-shirt’! 
Next on the agenda was the 
Fifth International Commodore 
it vomputer Show at the Novotel 


: 
(lormerly Cunard) Hotel. Com- 


wa 
Li 
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sa 
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ss last year, 
banging the 
drum with their “Number one 
and here to stay’ m 1essage. Two 
ce ae were 
launched: the Commodo re 16, 
a beginner's machine with 16K 
RAM. full-size keyboard, 12] (! 
— Ed) ioe and advanced 
BASIC: and the Plus/4. The 
Plus/4 straddles the gap bet- 
ween home and business com- 
puting, with64 K RAM and four 
built-in application pac ae 
(definitely an idea whose time 
has come). The nel are 
the standard busine 
processor, spreads 
pase and busines 
There is a screen window 
facility so that you can view 
two packages simultaneously 
and the whole thing costs £249. 
The Commodore 16 is priced at 


were 


1eW home 
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The Plus/4 is Commodore's home/business model. 





The Z-machine — censored by Commodore. 





£129.99 including a cassette 
unit, an Introduction to BASIC 
and tour games. 

Another Commodore launch 
at the show was Compunet, 
which will offer the full range of 


viewdata services for the price 


[ ] OC OOD)?‘ Pay - 
of a modem (£99.99) and a 
subscription. (The first year's 


subscription Ss Hee t© pur 
r 
chasers). AS someone poln- 


ted out to me, Commodore 


have manufactured more 
modems than Micronet already 
has subscribers. . . 

Now, a tale of left and right 
hands. The blank photo is cour- 
tesy of Commodore. Later 
that day I|I attended Com- 
modore's preview session of 
their two new _ business 
machines (still under develop- 
ment) — an IBM PC- 


compatible which Commodore 





What lovely legs — and the girl's ni 


hopes will make it the major 
competitor to IBM, and the Z- 
machine. This is the codename 
for a Lisa-like machine being 
developed by Commodore's Z- 
Team (no relation to George 
Peppard), although it was quite 
fascinating listening to the team 
leader trying to describe the 
computer without actually 
mentioning the Lisa, or Apple, 
or icons. The prototype, which 
features a 1024 by 1024 screen 
(graphics memory alone is 
128K!), windows, mice and the 
rest, was housed in an old PET 
case because the “beautifully 
styled” case was still coming 
through Customs. | asked if | 
could get any photographs and 
was told 1 could come back at 
any time. 

I did so on the Saturday. Hav- 
ing lugged my camera equip- 
ment trom one side of London to 
the other, and being given the 
run-around for a couple of 
hours, | was told by a second 
individual that no Press photos 
were permitted; | didnt even 
get a peek at the thing. Com- 
modore told me they were sorry: 
I wish I believed them. To 
paraphrase Lily Tomlin on Bell 
Telephones: “We don't care. 
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ce too. 





We're Commodore. We don't 
have to.” 

I'm not sure why | should offer 
advice atter that, but in my opi- 
nion the Z-machine, which is 
just the project name, shouldbe 
marketed under that title. It has 
a really nice ring to it, but | 
expect the thing will go out with 
just a mouthful of numbers tor 
identification. 

Finally we had the Computer 
Fair at Earl's Court, which was 
something of a disappointment 
with no new products being 
launched, and several major 
firms like Amstrad absent 
altogether. However, Dragon 
Data were at this show too, full of 
high spirits and confident that a 
rescue operation would 
salvage things. I hope so: it's 
been a long wait since the 
Dragon 32 but they they now 
have some good products com- 
ing along. 

Of course, one of the attrac- 
tions of the Press Preview at this 
show was seeing all the odd 
characters wandering around, 
such as the Hulk and Spider- 
man, a floppy disc with large 
feet, arobot, some Rom- 
an centurions and 
Roger Munford. . . 
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In next month's Computing Today our Adventure reviewer will be 7 Py © 
fe { x» 


running for his life from the Martian heat rays in War of the J 
Worlds, as well as leaming about economics, hand-to-hand VA sO me) 
combat and downright low cunning in Parts 1 and 2 of the Ket a 5 : % 
trilogy. Control Universal's 6809 Second Processor for the BBC rs sO @ Se / 
Micro will be on our testbench, as well as Commodore's portable 4 & 
SX-64. We'll be looking at a new range of machine code tutors 7 » 
for the BBC, 48K Spectrum, Atari and Commodore 64, and ol Pd = o > ue pry 
course there will be useful programs for a variety of machines. ~\ Ce oe ae Wy Gee 

Don't miss the September issue. / oO ay » eee ae ae 
Articles described here are in an advanced state of preparation re & 1S ia Pe 
but circumstances may dictate changes to the final contents. A 5 
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he excitement of the 

original Apricot launch 

(notable for the use of a 
lithe blonde model and the sub- 
sequent charges of sexism 
which were levelled at ACT for 
months afterwards) seems hard 
to recapture now. The original 
machine had a very different 
specification from most of its 
competitors: housed in a gleam- 
ing white case was a full 256K of 
RAM, compared withthe meagre 
64K or 128K offered on most 
systems. The Sony 3%" disc 
drives seemed revolutionary, 
and the liquid crystal ‘micro- 
screen with touch-sensitive 
function keys took away one's 
breath. 

Today, the Apricot seems 
more ‘diiferent’than revolution- 
ary. To a certain extent, dis- 
illusionment has set in. The 
Sony drives, though very reli- 
able and comfortable to use, 
proved to be a little slow for the 
demands of ‘serious’ work 
Many more systems are mar- 
keted with 256K RAM as stan- 
dard nowadays — and there 
are even some doubts about 
the advantages of the liquid 
crystal screen. 

The new Apricot xi is ACT's 
new chance in the fiercely com- 
petitive 16-bit business com- 
puter market. It incorporates 
two striking design changes. 
The first is entirely cosmetic — 
the system is encased in dark 
grey plastic instead of the 
gleaming white whichACT had 
made their trademark (ACT 
would no doubt call the colour 
‘anthracite’ by comparison with 
the Cavalier CD and the Escort 
XR3i). The second change is 
genuinely exciting — one ofthe 
Sony floppy disc drives has 
been replaced witha 10M hard 
disc (a 5M configuration is 
also available). 


REVELATIONS 


Reviewing the Apricot in this 
new guise was a revelation. 
Fast disc access creates a feel- 
ing of confidence and smooth 
operation whichis farless easily 
achieved on the floppy disc 
version, and (as you might 
expect) disc- bound operations 
like databases become far less 
onerous. ACT plan to support 
partitioning of the hard disc 
such that, for example, MS- 
DOS can have 4M and Con- 
curent CP/M can have 6M. 
However, you should note that 
the CP/M and Concurrent 
CP/M versions of the hard disc 
are still under development. 


REVIEW :Apricot xi 





EXCELLENT 





Simon Dismore 


ACT , originally the UK vendors of the Sirius, decided 
to design their own Apricot machine to avoid problems 
with US supplies. Their first model, announced with 
much razamatazz in 1982, has been quietly joined by 
a bigger brother — is bigger more beautiful? The 
Apricot xi makes a powerful case. 
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The back panel of the xi From left to right we have the keyboard port, printer port, RS232C port and monitor port. 





The price of the 1OM Apricot 


xi is £2995, compared with 
£1890 for the standard dual 
floppy model. The 5M con- 
figuration is currently priced at 
£2695, which represents rather 
a poor bargain compared with 
its bigger brother — £300 buys 
you an extra 5M, and any 
seasoned hard disc u , 

you that your disc requirements 
are the last place to economise. 

As an operating system, MS- 
DOS is quite similar to CP/M in 
its interface to the user. “DIR’ 
displays a directory, “TYPE” 
displays atextfile, andsoon. To 
the user, there are three really 
significant differences: disc 
access is considerably 
(the MS-DOS routines for allo- 
cating disc space seem to be tar 
superior to CP/M, and are 
further improved by keeping 
much of the directory allocation 
in memory, rather than out on 
he edge of the floppy disc). The 
two other differences are bor- 
rowed from the Unix operating 
system, which is itself marketed 
by Microsoftforlargermachines 
under the name 'Xenix’. 

Unix (and likewise MS-DOS) 
permits the output of one pro- 
gram to become the input te 
another. Under MS-DOS, for 
example, there is a simple littl 
utility called MORE which reads 
input and displays it on the 
screen, stopping at every screen- 
ful until a key is pressed. Of 
itself, this seems a fairly useless 
facility, but when (say) the 
directory is ‘pipelined’ through 

es 


to MORE the advantag 
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ing around trying to press 
Control-S at the precise moment 
where you want to freeze the 
screen — let MORE do the work 
for you. 

ACT describe atypical appli- 
cation of this in their User 


Guide. Given that DIR pro- 
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paths, which are a boon when 


working on a hard disc which 


might easily contain over 500 


files 
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next page). 
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CP/M. 
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(see Our description on the 
Taken together, 


these three facilities 
show that MS-DOS is more than 


certainly 
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We found thatthe9” screen was 
not as hard to use as we had 
expected, though the news that 
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1 a regular basis 


every day. An anti-glare finish 


ensured that the Apricot could 

be used in averagely bad light- 

ing (and there are tools 

vided for designing your own 
character set if you prefer). 

The keyboard unit caused 

1 frustration. ACT 


ditferentiated | 


unexpectec 
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The power of the hard disc. With 76 files stored 8,544,256 bytes are free. 





ween the main keyboard and 
the special editing and cursor 
keys, which gives a pleasing 
compact impression to the eye 
but can often fool the fingers. 
Non-typewriter keys should 
have been finishedin a different 
colour, like the function keys on 
the top row. In use, the keyboard 
tended to attract errors: it has a 
very ‘soft’ touch when typing 
and the close spacing of the 
keys meant that it was easy to 
press two or more at the same 
time. While this is to some 
r ly 
ference and early training, it 
does seem that the keyboard is 
not the xis strongest point. 
The miniature LCD unit, with 
six touch-sensitive keys, was 
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MS-DOS DIRECTORY PATHS 


MS-DOS version2.0 introduced aconcepttfrom the increasingly 
fashionable Unix operating system — directory paths. This is a 
great advantage for a hard disc machine. 

What does this mean? Imagine that you are a manufacturer 
who uses the Apricot xi for several different applications (for 
example, mailshots, quotations and a diary which keeps track 
of sales calls). You have 10 salesmen and two products, so there 
are (3 x 10 x 2 =) 60 different combinations of applications, 
salesman and product — only one of which will be correctin any 
given situation. Unfortunately, all your salesmen call their files 
SALES.LTR, as they find S2/W/IBO.LTR something of a mouth- 
ful after a hard lunch at the negotiating table. 


After two or three weeks with the system, inexplicable errors 
start occurring — I.B. Ontarget's quotation for 2000 sprockets 
gets confused withthe mailshotthatC. A. Fastbuckis sending to 
his widget customers, with potentially embarrassing results. 
One solution is to give each salesman six diskettes — one for 
each product and each application. 3 

This is scarcely a sensible approach to a computer which 
has space for millions of characters on a much faster internal 
disc, so MS-DOS lets you divide the disc into separate areas for 
each combination. Each directory can have other directories 
inside it, and two different directories can contain files with the 
same name without fear of confusion. MS-DOS mimics the Unix 
conventions for directory names, using the prefix’ \‘ to indicate 
a directory within a command. Users can move between direc- 
tories using the CD (Change Directory) command. 

The most fundamental level of directory is called the ‘root’ 
directory, whichis reached by issuing the commandCD \ . You 
can imagine this to be either the trunk of a tree (with branches, 
twigs and leaves representing more specialised directories), or 
the root of a plant, with finer and finer roots descending from the 
main ‘root — most books on Unix seem to adopt the terminology 
of trees while printing diagrams which look like the roots of 
plants! 

Each application is reached by ‘paths’ through the direc- 
tories, which are invisible to other directories. So salesman Ian 
can have a file called SALES.LTR containing a quotation for 
sprockets (full pathname \IAN\ SPROCKET \QUOTE\ 
SALES.LTR) which will not be confused with Chris’ general 
mailshot to all widget purchasers, also called SALES.LTR (the 
full pathname is entirely different \ (CHRIS \WIDGET \ 
MAILING \ SALES. LTR). 


For convenience, MS-DOS can be told which paths to 
search when looking for programs. So if, for example, SUPER 
CALC is used to calculate quotations, only one copy need be 
kept on the hard disc(probably in the root directory). The quota- 
tions directories for each salesman are then instructed to look in 
the root directory for their software. 

This all seems very confusing in theory, but the practice is 
simplicity itself, When, for example, Chris wants to use the sys- 
tem, he issues one command tochangeto the directory he wants 
(for example: CD \. CHRIS \SPROCKETS \ DIARY) and is 
then free to do whatever he wants without fear of confusion or 
corruption of other users’ files. 


It is interesting to compare this approach with the more 
rudimentary facilities provided by Digital Research's CP/M 
operating system (also available for the Apricot). CP/M allows 
files to be incorporated in different’ user areas’, numbered from0O 
to 15. This means that up to 16 different combinations of user 
and application are possible, with any shared data or programs 
being stored in user area O where (if given a special attribute) 
they can be located by any user. This is much harder to use 
(users must memorise numbers, ratherthan shortened names for 
their applications) and, as we have seen above, even a simple 
sales office can easily exceed the arbitrary limit of 16 
directories. 


REVIEW: Apricot xi 


Aiivyryy to 
LAA AA AA ALAA 


beth lat lclglot 
PEI eErrryy 





ip Yi Hi Vee ti 

es bs b yy 
ie Me Hie EE yy 

IL LE " es 6“ 


By 
BEE 
te Me 


VMI 


‘TOR FOOT 


tag Zn 
a s 


Here some keys are programmed (the active keys have lit LEDs). 


FACTSHEET ACT Apricot xi 
5M configuration — £2695 
10M configuration — £2995 


CPU Intel 8086 

Clock 5 MHz 

RAM 256K standard, expandable to 768K 

Bundled 

Languages Microsoft BASIC with MS-DOS 
Personal BASIC with CP/M 

Bundled 

Products Manager menu environment 
Tools editor and reconfiguration utility 
Async communications software 
SuperCale 3 and SuperPlanner 

Dimensions Display: 4.1 kg(10%" by 8%" by 10”) 
System: 5.4 kg (16%4" by 4” by 124") 
Keyboard: 1.5 kg(16” by 2” by 7”) 

Display 80 columns by 24 lines 


Low resolution block graphics characters 
High Resolution 800 by 400 under GSX 
296 User Defined Characters 
YO RS-232C interface (female) 
Centronics Parallel interface (female) 
Microsoft Mouse interface (male) 
Integral 5 or 1OM Hard Disc 
Integral 315K Sony Microfloppy Drive 
OS MS-DOS 2.11 with GSX bundled 








CP/M-86 free on request (not yet available) 


Concurrent CP/M-86 (not yet available) 
Expansion memory in 128K increments 
Intel 8087 floating point processor 
Asynchronous modem board 

Microsoft Mouse 

Colour Monitor (announced, but not yet 
available) 

12” Monochrome Monitor (due in August 


1984) 


Options 
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the greatest disappointment of 
all. Something about the con- 
trast or the character definition 
seemed to be lacking, and one 
might in any case suggest that 
the best place for messages to 
appear is on the screen, rather 
than at the keyboard. Frankly, 
this seemed to be a gimmick 
which would have been better 


implemented with two or three 
additional screen lines, and 
fewer unconventional keys. 


SUPER SOFT 


The software that was provided 
was superbly documented. 
Supercalc behaved as expec- 
ted, the asynchronous com- 


easy to operate and (in our 
tests) totally reliable, though it 
was surprising that the com- 
munications software could not 
detect the presence ofthe usual 
line signals (it was quite happy 
to transmit even when no other 
machine was present). 

ACT also provide the Super: 


address book with the machine. 
This really was a ‘noddy pro- 
duct, and it would be most un- 
likely to attract any serious 
users. It provides that simple 
facility to view a calendar, 
make appointments and so on, 
but provided no cross-referenc- 
ing between appointments and 
addresses — and the facilities 
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munications were supremely 


Planner electronic diary and 


THE GRAPHICS SYSTEM EXTENSION 


Graphics represent one of the most machine-dependent 
applications it is possible to imagine. Some machines have low 
resolution colour screens while others offer high resolution 
monochrome output. Likewise, plotters and printers have a 
bewildering variety of features, each driven by incompatible 
instructions. Digital Research have attempted to solve this pro- 
blem with a software extension to the operating system called 
GSX (Graphics System Extension). 

This allows programs to make logical requests to the operat- 
ing system for particular graphics operations. GSX interprets the 
logical operation using a module designed to drive the chosen 
device. So, for example, the logical operation CLEAR 
WORKSTATION causes a CRT screen to clear, but on a printer 
or plotterit ejects the sheet of paper and prompts foranew sheet 
to be inserted. The ‘device drivers’ are entirely independent of 
the machine on which the operating system runs, within the 
limits of common sense (printing a colour graph on a mon- 
ochrome printer will be successful, but may be meaningless 
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GSX GRAPHICS 


Fig. 1 Asample graph produced by GSX on a plotter. 
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GSX GRAPHICS 


Fig. 2 The same graph sent to a printer. 


because all the colours look the same). 

Applications programs can even ask GSX to describe the 
characteristics of the current device — number of colours avail- 
able, range of text fonts, options of dotted lines, and so on. This 
sort of device-independence is still quite new, so there is not a 
great deal of software on the market that will take advantage of 
all the features of GSX, but it promises to be extremely useful in 
years tocome. We have reproduced two examples of the’same 
graph created using GSX, one printed on a Hewlett-Packard 
7470 plotter, the other on a Data Products 8010 printer — only 
one instruction was required to switch output between the 
two devices. 

Device drivers are available for most popular microcom- 
puters, plotters and printers, and even for more esoteric pro- 
ducts like digitising pads, and GSX is available for CP/M, 
Concurrent CP/M (which is now being re-branded as ‘Con- 
current DOS) and the new version 2.11 of MS-DOS. 

On the Apricot we reviewed, there was little scope to test the 
features of GSX. Only one device driver was supplied 
(DDACRT.SYS — the device driver for the Apricots own 
screen), but there was a useful demonstration program in 
Microsoft Interpreted BASIC which showed how calls to GSX 
could be made without resorting to machine code routines. The 
documentation for GSX (dated August 1983) seemed to be 
insufficient for most normal users, and quite inadequate for pro- 
giamming;: though listings were given for interfacing several 
languages (FORTRAN, Pascal, PL/1, Compiled BASIC and C) 
there was no description of the calls themselves and the 
parameters they require. We thought that ACT should take 
more advantage of this powerful feature (remember how pop- 
ular the Sirius became for Computer Assisted Design?) by pro- 
viding a wider range of device drivers and more software which 
would make use of them. If you are considering buying an 
Apricot for graphics, you should check to see which device 
drivers and applications are available at the time of 
purchase. 


(DEVICE DRIVERS) 


BIT-PAD SCREEN PLOTTER 


PERE SLT Ee 


GIOS 


(GRAPHICS I/O SYSTEM) 


GDOS 


(GRAPHICS DISC OPERATING SYSTEM) 


OPERATING 
SYSTEM 


USER PROGRAM 
Fig. 3 The GSX system. 
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PRINTER 


for rescheduling an appoint- 
ment were very difficult to 
manage. Perhaps the authors 
should bear in mind that most 
people are on the telephone 
when they make their appoint- 
ments, and do not have the 
opportunity to indulge in com- 
plicated manoeuvres at the 
keyboard. Still — it comes free 
with the machine, so it is per- 
haps uncharitable to complain 


too bitterly. 


CONCLUSIONS 


The Apricot xi represents very 
good value formoney ina 16-bit 
hard disc system, and will be a 
benchmark for other manufac- 
turers in price and performance 
We were particularly 
impressed with the very high 
quality of the documentation, 
with copious use of illustrations 
and even full colour photo- 
graphs. Though we had reser- 
vations about the keyboard, the 
lasting impression was of a very 
‘usable’ system, with a lot of 
attention paid to the needs of 
inexperienced users. 

The Apricot frontend menu 
system deserves a special men- 
tion in this context. In essence, it 
Is very simple: you highlight the 
name of a task you wish to per 
form and press the Return key, 
and the menu system locates 
the program and runs it for you. 


terms. 


x . LOAN AONE 
QAO NATHAN 


REVIEW : Apricot xi 





apricot 


Change ar delete an option fron the “NANAGER nen. 


ca 
Saosin 





The manager menu. Here we have selected ‘change an option’ (the white cells). 





The design of the software is 


at four times theirnormal height, 
boxed together in a grid that 
clearly separates tasks (eg 


Once into the ‘Change options’ file, a new menu is presented. 
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Communications or Super 
Calc) trom options(eg Finish or 
Help), and all of the cursor and 
editing keys can be used to 
move around the display. 





The front-end comes as two 
programs: MANAGER is res- 
ponsible for displaying options, 
help messages etc, and can 
easily be reconfigured by the 
user with the aid of the second, 
TOOLS, program. TOOLS is 
ACT's way of presenting all the 
unpleasant business of chang- 
ing character sets, serial printer 
parameters and so on, in an 
unambiguous, easy-to-under- 
stand manner. The two together 
put most manufacturers’ utilities 
to shame. Combined with MS- 
DOS's powerful ‘batch file 
facility, which allows sequen- 
ces of commands to be 
grouped together and given a 
single name, the Manager 
makes it possible to produce a 
truly user-friendly front-end in a 
fraction of the time required 
under most operating systems. 

Subject to some reservations 
about the xi keyboard, we felt 
that the entire system was well- 
designed for users of all levels of 
competence. Once CP/M and 
Concurrent CP/M are avail- 
able for the hard disc, the 
Apricot xi will be a very attrac- 
tive purchase for those who 
want the benefits of fast data 
access and high resolution 
monochrome graphics. ACT 
have designed a 
worthy successor to the 
Sirius. 
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LEVEL 9’'S 
ADVENTURES 





Christopher Moss 





Our intrepid reviewer has been feeling a bit jaded lately, but a supply of 
games from Level 9 have refreshed the parts that other Adventures cannot 
reach. 


cently I'd become a bit 

jaded’ by Adventure- 
playing. Too many _ tapes 
were being loaded and 
run to reveal yet another 
variation on the 
theme of keys, lamps, swords, 
vicious dwarves and hungry 
beasts. Worse, I was drowning 
ina monotony of unimaginative 
descriptions." Youare inaroom 
with stone walls. Exits north, 
south, west. There is a chest 
here.” Yawn. Luckily I've been 
sampling some games from a 
prolific software house which 
have perked me up again. | 
thought Adventures had be- 
come dull until I discovered 
Level 9. 

Before I go any further, I feel | 
should make a stand on the 
subject of text adventures ver- 
sus graphics. | don't think 
graphics are worth the effort at 
the current stage of home com- 
puter technology. They eat up 
so much memory, both in terms 
ofthescreen RAM required and 
coding to draw the actual pic- 
tures that any graphics adven- 
ture mustnecessarily be limited 
in scope. Moreover, the current 
state-of-the-art of home com- 
puter graphics, makes it hard to 
create really exciting pictorial 
adventures that stimulate the 
emotions and generate moods 
in the player as he explores. It's 
like the difference between 
reading a comic book and a 
well-written novel —_ the 
images that the skilful author 
can create in your mind's eye 
through imaginative use of the 
written word have far more 
impact than the cartoon strip. 

Unfortunately, just as a good 
novel can only come from the 
pen of a good author, as! poin- 
ted out above, the average 
level of imagination amongst 
adventure programmers is pre- 
tty low. But listen to this: 

“You are atthe eastem end of 


I have to confess that re- 
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a long room with two pits in the 
floor. You are near the east pit, 
and the many thin stone slabs 
littering the room would make 
descending it simple. A path 
bypasses the pits to connect 
passages from east and west. 
There are holes all around, but 
the only large one is high above 
the west pit, out of easy 
reach’, 


BIG STUFF 


That is the description of just 
one location in Level Q's 
Colossal Adventure. There are 
over 200 more locations in- 
cluded in this game, which is a 
full-size version of the original 
classic mainframe Adventure 
that started the whole genre 
rolling. Amazingly, to add a lit- 
tle something to the original, 
Level 9 have added a whole 
new end-game with 70 extra 
locations: and it all fits into a 
32K BBC. This is a quite re- 
markable feat of programming, 
made possible because of the 
companys own ‘adventure 
language’ called ‘a-code’ (I 
love it when a plan comes 
together?), together with a50% 
text compression technique. 
Stand up and take a bow, 
Messrs Pete and Mike Austin — 
your software impresses the 
hell out of me. 

They have a nice line in 
humour, too: here’s the res- 
ponse when you read the 
Spelunker Gazzette: 

“The main headline is ‘Don't 
go West. The lead story is 
about the success of the Dwar- 
ven King who has added the 
heads of another two elves to 
his collection. The editorial 
denounces the perverted ways 
of'Elvies’ and page 3 features a 
female dwarf whose long grey 
beard has been positioned 
ingeniously. The rest is adverts, 
mainly for Witt Construction Plc 
(dungeons a speciality) and 
Acom Forestry (oaks take a 


long time to grow — order now 
for your grandchildren).” 

OK, I was complaining 
about repetitious dwarves and 
swords at the start of the article, 
but with text like that (and it is 
like that throughout the Adven- 
ture) the game is given a whole 
new lease of life. Lives, actu- 
ally: Colossal Adventure is only 
the first of three parts of the Mid- 
dle Earth trilogy, the others 
being Adventure Quest and 
Dungeon Adventure. Level 9 
give ‘recommended solving 
times’ for these Adventures 
which are either wildly optimis- 
tic or assume you've got noth- 
ing better to do all day than 
play games. Their largest Ad- 
venture, Dungeon, is listed as 
an eight-week, (rather than a 
three-pipe!) problem, but it is 
huge and devious in the ex- 
treme. You certainly won't feel 
you ve wasted your money on 
these games — hours and 
hours of pleasure are to be had, 
particularly since nocrib sheets 
are included in the game (well, 
we reviewers get them, but the 
general public cannot be re- 
lied on to exhibit phenomenal 
will power). Fortunately, if an 
unsolvable puzzle is driving 
you to distraction, Level 9 in- 
clude an envelope with a‘clue 
voucher which you can send 
off to them with a question(s) for 
help. You may well need it... 
but don't use it up too soon! 


A MUSICAL 
INTERLUDE 


The two latest adventures to 
join the Level 9 collection fea- 
ture awelcome addition: onthe 
BBC versions, anyway, which | 
gotforthe review. Ittakes along 
while for all the program to load 
(after all, practically the whole 
of the RAM is being filled), so 
Level 9 have thoughtfully pro- 
vided some musical relief. A 
short pre-loaderprogram plays 





aclassical piece of music while 
the main program is loading. 
Still showing great style, the 
tune is quite complex and | 
heard at least two voices play- 
ingin harmony, and though my 
classical knowledge isn't up to 
much, I assume the pieces 
have some relevance to the 
game titles. 

The first of the games is Lords 
of Time. In this game you have 
to travel through time in an 
appropriate but unusual vehi- 
cle, collecting various impor- 
tant objects from nine time 
zones in order to defeat the wic- 
ked plans of a bunch of evil 
timelords. This is something of 
an ‘odd man out’ amongst the 
range as it was not designed by 
the prolific Pete Austin but by a 
lady named Sue Gazzard. The 
Brothers Austin have worked 
their usual magic with it, 
though, and it's as complex as 
any of the others. 

You get quite a bit of variety 
hopping through the time 
zones. There's a large mansion 
sporting a range of items from 
herb gardens to a Masai spear, 
a Viking longboat, a Roman 
town, and some dinosaurs with 
extremely anti-social habits. 
Don't try hopping around the 
time zones trying to get the 
flavour of the game, as! did, as 
you'll get nowhere fast: stick to 
the advice in the manual and 
visit the zones in numerical 
order. 


SNOW JOKE 


The final game from Level 9 
(currently, that is: more are in 
the pipeline), is Snowball. This 
is, without doubt, a huge 
Adventure: the authors claim 
over 7,000 locations. I'll have to 
take their word for it, because | 
haven't visited more than a 
fraction of that number so far. 
The adventure is set aboard 
the Snowball9 colony starship, 
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Snowball 


so named because for much of 
the journey its bulk consists of a 
layer ofammonia-ice surround- 
ing the passenger quarters to 
provide flight-time fuel. It might 
also have something to do with 
the several hundred thousand 
frozen colonists residing in their 
freezer coffins awaiting revival 
in the brave new world to which 
they are headed. Unfortunate- 
ly, the ship has been sabo- 
taged and is heading for the 
destination star — literally! As 
Kim Kimberley (a female hero 
for a change, and probably no 
relation to Kimball Kinnison, 
the famous Lensman), you 
awake from your hibernation 
and are faced with the task of 
saving the whole starship. This 
is no mean feat as the resident 
robots, named Nightingales, 
have been reprogrammed, 








Level 9 





x he 
Computing 
and far trom being ‘ministering 
angels’, show more of a ten- 
dency to ministersudden death 
at the end of a syringe. 

Apart from being so big, 
Snowball has a rather novel 
plot and, of course, the excel- 
lent text descriptions of all the 
other games. Control panels 
sport coloured indicator lights 
and buttons: can you work out 
what they do? How do you get 
up to the trapdoors in the ceil- 
ing (the Nightingales can't 
climb, apparently). What is a 
waldroid? (Hint: it's not a piece 
of confectionery). 

I look forward to the two 
remaining parts of this trilogy, 
Return to Eden and The Worm 


in Paradise. 


CONCLUSIONS 


Looking back over this piece, | 
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REVIEW: Level 9 Adventures 








notice | haven't mentioned the 
extremely fast response to the 
userinputforgames ofthis com- 
plexity. Coupled with the very 
detailed background of the 
worlds in which each game is 
set, this makes Level9’s adven- 
tures more than just acutabove 
the rest. I can't remember 
enjoying any game as much 
since I played some of Peter 
Killworth's adventures from 
Acornsoft. I don't thinkI'd like to 
decide between these two for 
the person with the most 
devious plotting ability, but 
one thingis certain— alotmore 
of you can enjoy the games 
described here because they 
are available, not just for the 
BBC Model B, but for the Com- 
modore64, 48K Spectrum, 48K 
Lynx, 32K Nascom, 48K Oric, 
and 32K Atari. 





Adventure 











Quest 





Whichever machine you 
own, if you have the vaguest 
tendency towards adventure 
playing then you must try one of 
these games (unfortunately 
you ll probably end up wanting 
to buy the lot!). If 1 have one 
small criticism to make it's that 
Level 9 should let a competent 
prootreader give all their text 
strings the once-over before 
committing their game to the 
tape duplicators: there are 
severai annoying spelling mis- 
takes which crop up (it's mech- 
anical, not machanical, for 
example). But then I'm just a 
perfectionist. 

Level 9 adventures cost 
£9.90 each and can be ob- 
tained from them by mail order 
from 229 Hughenden 
Road, High Wycombe, Sa 
Bucks HP13 5PG. 
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Picturesque's MACHINE CODE SYSTEM Is used and recommended by 
documentation and the friendly, easy-to-use programs have 


The Key to Spectrum Machine Code Success. 


i ofessional software writers, 


You willonly buyone Machine Code System sobuy the best, the one the professionals se. 
NEW IMPROVED PROGRAMS — MICRODRIVE COMPATIBLE 
2 ASSEMBLER 


MONITOR 
Completely self-contained The ideal tool to help the 
with its own line editor, giving beginner get started, yet it 
an easy-to-read 40 column contains all the commands for 
tabulated listing. Auto line Re... the experienced programmer 
numbering, line renumbering ; A to run and de-bug machine 
and auto tabulation make this ns eae code programs. Inspect and 
one of the fastest and easiest EN 2g alter memory contents In 
Assemblers to use. 5- 
character label names. 
Decimal, Hex or ASCII 
constants. SAVE/LOAD/ 


yo Hex or ASCII. Breakpoints and 
Specirors 10K & 49% 
VERIFY both the listing and 


full Register display. NOW 
WITH SINGLE STEPPING 

MACHINE 

Machine Code to cassette/ 


CODE 
MICRODRIVE/NETWORK 


through RAM or ROM. 
lus Disassemble any part of 
SYSTEM 
Assemble from cassette or 


wee = memory, RAM or ROM. Dec- 
ap poems Coen Hex-Dec number converter 
Microdrive into memory for very 
large programs. Customise to most Centronics 


Printer output to 2x 
printer or via RS232 (with 

Interface 1) or customise to 
printer Interfaces, or RS232 (with Interface 1) for 80 column most Centronics printer Interfaces. General memory 
printout. FAST ASSEMBLY — 1k of code in 7 seconds. management commands include Hex dump, Insert, 
Assembler Directives:— ORG, END, DEFB, DEFW, DEFM, EQU Delete, Filland Move. Can reside in memory with the 
DEFL. (Microdrive and Centronics facilities Assembler (48K machines only) to give a complete 

only operate with 48K machines.) y S 50 
ay 
INCL. VAT & P&P. 


Machine Code programming system. a 7. 50 
Programs supplied on cassette with option to Save onto Microdrive (cartridge not supplied) 
Existing owners can ty ti ed the new programs by returning the cassette only to Picturesque, along with a cheque/ PO. for 
1.50 per program (inc. VAT & P&P). New cassettes will be su 





shops, or by mail order by sending cheque/PO to 


INCL. VAT & P&P. 
lied by return of post 
Available from the SPECTRUM" chain Of stores, branches of Jonn Menzies andall good computer 
PICTURESQUE, 6 Corkscrew Hill, West Wickham, Kent, BR4 9BB. Send SAE for details 





for the widest range of software for the ZX Spectrum 


Commodore 64, VIC 20, and Atan plus many titles for 
the Dragon, Apple, BBC and Electron 












New titles are stocked within hours of release — 


call our friendly knowledgeable staff for details 


VIRGIN GAMES CENTRE, 22 OXFORD ST, LONDON WIL ()|:637 /9! 


COMPUTING TODAY AUGUST 1984 


SOFTWARE: Mode 7 editor 












reating Mode 0-6 
graphics displays on 
the BBC computer is 


easy, but things get rather 
trickier in Mode 7. This is 
something of a pity, because 
Teletext uses very little memory 
and gives a wide choice of 
colours. The problem is that, 
although the User Guide gives 
a good introduction to the mode 
and there have been lots of arti- 
cles published on how to 
exploit it, the computer itself 
does not have any decent 
Mode 7 commands built-in. 

As aresult, therefore, you nor- 
mally have to create Mode 7 
displays pretty well by trial and 
error, using a series of PRINT 
statements. Since the display is 
both line and character orien- 
ted, this is a rather clumsy, 
tedious and error-prone 
approach. 

In this article I will describe a 
program which makes the 
whole process much easier. It is 
a Mode 7 screen editor which 
gives you full control of what 
appears where on the screen, 
changing and moving blocks 
and characters as you wish. 
When the display is correct, the 
program will copy it to tape or 
disc, or generate suitable 
PRINT commands which you 


£0 
SHIF'T/ Normal- 
CTRL Height 
CTRL Read 
from 
(Graphics) PRINTs 
SHIFT Read 
from 
(Alpha) Tape 
Copy 
Normal to 
Tape 


Double- 
Height 


Red 


Red 


Copy 
PRINTs 


MODE 7 
CREEN EDITOR 


D. S. Peckett 


can insert in your own pro- 
grams. 

The program (SCRED7) will 
run in a 16K or 32K computer 
and is compatible with both 
BASIC I and II. It should also run 
in a disc-based system, al- 
though I have not actually tried 
that. It does, however, need 
O.5S 1.0 or later. 


THE APPROACH 
When you first RUN the pro- 
gram, you will see a blank 
screen, with the cursor blinking 
at top left. You can move the 
cursor to any screen position by 
using the arrow keys normally 
and type or delete as usual at 
that point in this way the pro- 
gram will act as a flexible 
screen editor. 

However, it also makes very 
extensive use of the red function 
keys to select operating modes, 
to switch back and forth bet- 
ween text and graphics, to save 
and read the screen, and so on. 
By using these keys in conjunc- 
tion with cursor movement and 
the usual alphanumeric keys, it 
is possible to create very com- 
plex displays remarkably 
quickly. 

The key to using SCRED7 
effectively is therefore the red 
keys (sorry) and Table 1 shows 


Teletext mode on the BBC Micro is very memory-efficient and versatile, 
but oh-so-tricky to actually use. This program will let you edit the graphics 
and text with ease and store the results in a variety of ways. 


their functions. Each has up to 
four different meanings, de- 
pending on whether it is pres- 
sed alone or together with the 
Shift and/or CTRL keys. 

The SHIFT/fn and CTRL/fn 
operations select coloured text 
and graphics respectively, as 
described on pages 154 and 
155 of the User Guide, while 
SHIFT/CTRL/fn will choose the 
remaining Teletext commands. 
Pressing any of these keys will 
make all text after the control 
character on that line appear as 
text, graphics, coloured, flash- 
ing, double-height, and so on, 
as appropriate. If you select 
double-height, the program will 
automatically enter text on two 
lines for you, so that you will 
actually type the enlarged text 
or graphics characters. 

With the exception of key £9, 
you can use the normal function 
keys to select the program's dif- 
ferent support functions. How- 
ever, {9 will supply CHR$255, 
which you otherwise cannot get 
directly from the keyboard; you 
need it when creating graphics 
in order to supply a complete 
2x3 block of pixels. 


IN USE 


Let's now take a look at how to 
use SCRED7. I assume that you 


TABLE 1 


Use of Function Keys 


f] £2 £3 
Contig. Separate 
Graphics Graphics 
Green Yellow 
Green Yellow 
Clear 
to Init. all 
Flags 


Black 
B'gnd 


Blue 


Blue 


Insert 
Mode 


£4 £5 £6 
New Hold 
B'gnd Graphics 
Magenta Cyan 
Magenta Cyan 
Overwrite 
Mode Marker 







understand the Teletext ap- 
proach of using control charac- 
ters to affect the way that 
characters following them on 
that line are displayed. You will 
also know that, if you select a 
graphics control character, 
lower-case letters, numbers 
and punctuation appear as 
blocks of pixels; pages 486-489 
of the User Guide show the 
relationships between graphics 
and alphanumerics. 

I won't, therefore, go into 
detail about keys SHIFT/CTRL/ 
0-9, CTRL/fl-8 or SHIFT/f1-7; 
its easy to understand what 
they do. The operation of the 
remaining keys is described 
below: 

£0 — Copy to Tape Pressing 
this key writes a complete copy 
of the screen to tape or disc. The 
screen will clear as the display 
is saved in a buffer, and you will 
be prompted for a file name. 
Enter one, and you will go 
through the familiar writing 
routine, after which the screen 
will be restored. Once made, 
the copy can either be re-read 
by the program (using SHIFT/ 
{0) or you can load it directly to 
the screen at any time with the 
command: 

*#LOAD "<filename>" 7C@2 


£7 £8 £9 
Release Flash Steady 
Graphics 
White Conceal — 
Graphics 
White = _ 
CHR$ 
Copy Swap Zuo 
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Listing 1. The complete program for the Mode7 Screen Editor. 
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1@ GOTO288 
20 PRINT " 


3@ REM *# Plus another 24 lines just like line 

20, with 4@ spaces in each 

268 

27@ REM ** This will be the last such PRINT stat 
ement 

288 ON ERROR GOTO 618 

290 DIM Mark_X%(1) ,Mark_Y%(1) ,Bufferi 1808,Buffe 
r2 1008,String_Buff 48 

388 PROCInit 

318 REPEAT 

328 Key=GET 

330 REM ## Decode SHIFT/CTRL keys 

340 IF Key<13 THEN Key#1@@+ASC (MID#("() 54689: 3 $%" 
»Key-2,1)) 

358 IF Key=24 THEN Key=255 

360 REM *# Must be normal character 

378 IF FNKey_In(32,126) OR FNKey_In(129,139) OR 
FNKey_In(145,159) OR Key=255 PROCChar 

388 IF Key#13 PROCNew_Line 

390 IF Key=15 PROCTape_ Save 

400 IF Key=16 PROCProg_Save 

410 IF Key=17 PROCClear 

420 IF Key=18 PROCClear_Flags 

430 IF Key=19 Insert=TRUE 

440 IF Key=22 Insert=FALSE 

45@ IF Key=21 PROCMarker 

460 IF Key™22 PROCCopy 

470 IF Key=23 PROCSwap 

488 IF Key=27 PROCLeft 

492 IF Key=28 PROCRight 

588 IF Key=29 PROCDown 

510 IF Key=3@ PROCUp 

520 IF Key=127 PROCDel 

530 IF Key=128 PROCTape_Read 

548 IF Key#14@ PROCChar: Double_Ht=FALSE 

552 IF Key=141 Double_Ht=TRUE: PROCChar 

568 IF Key=144 PROCProg_Read 

570 #FX15,1 

58@ UNTIL FALSE 


6080 REM *# Trap ESCAPE and shut down 

61@ CLS 

620 IF ERR<>17 ON ERROR OFF:sREPORT: PRINT " at li 
ne "s;ERL 

630 #*FX4,08 

640 END 

658 

660 REM *# Set up system at start 

670 DEF PROCInit 

688 PROCClear 

690 REM #*# Reset user-defined keys 

7080 *Fxis 

710 *FX4,2 

720 REM #*# Set base addresses for 
eys 

730 #*FX225,15 

74@ *#FX226,128 

750 #*#FX227,144 

760 *FX228,3 

770 P%=&7CBOO: REM #** Start of screen 

78@ ENVELOPE 1,1,0,0,0,10,10,18,20,-5,-2,-1,120, 
78 

798 ENDPROC 

880 

810 REM ## Main display routine 

820 DEF PROCChar 

838 IF Insert PROCSpace(Cursor_X%,Cursor_Y%) 

840 IF Cursor_X%=39 AND Cursor_Y%=24 THEN ?&7FE7 
=Key ELSE PRINT TAB(Cursor_X%,Cursor_Y%) ; CHR$ (Key) 


858 IF Double_Ht PROCSecond_Row 

860 PROCRight 

878 ENDPROC 

88a 

898 REM ## Second row of double-height chars 

900 DEF PROCSecond_Row 

918 IF Insert AND Cursor_Y%<25 PROCSpace (Cursor _ 
X%,Cursor_Y%+1) 

920 X%=Cursor_X%: Y%=Cursor_Y%+1 

930 IF Y%>24 ENDPROC 

940 IF X%Z=39 AND Y%=24 THEN ?&7FE7=Key ELSE PRIN 
T TAB(X%,Y%) ; CHRS (Key) 5 


program 


function k 


958 ENDPROC 

968 

970 REM ## Go to start of next line 

980 DEF PROCNew_Line 

992 Cursor_X%=2 

10980 PROCDown 

1818 Double_Ht=FALSE 

182@ ENDPROC 

1838 

1040 REM #*# Save screen to tape 

105@ DEF PROCTape_Save 

1060 REM ## Into buffer first 

1070 FOR I%=@ TO 999 STEP 4: Bufferi1!IZ=P4!1%:NEXT 

1088 CLS 

1890 REPEAT 

1100 INPUT TAB(S5,8) "Save screen as which" TAB(S, 
9) "file? " File _Names 

1110 IF File _Names=""" PROCBleeps (6,2) 

1120 UNTIL File_Name$>"" 

1130 PRINT °’ 

114@ PROCOSCLI ("SAVE """+File Name$+"""" "+STRE~*(B 
ufferi)+" +3E8") 

1150 REM ## Buffer back to screen 

116@ FOR I%=@ TO 999 STEP 4:P%!1%=Bufferi1! 1%: NEXT 

1178 ENDPROC 

118@ 

1198 REM #*# Save the screen to PRINT 

1200 DEF PROCProg_Save 

1218 Q%=PAGE 

1220 VDU23,1,0;0;0;0; 

1230 FOR Y%=8 TO 24 

1240 PROCFind_Qts 

125@ FOR X%=@ TO 39 STEP 4: Q%!XZ=PA! (40#YXA+X7%) = NE 


statements 


1268 Q%=0%+48 
1270 NEXT Y% 
128@ VDU23,1,13;8;0;0; 
1290 ENDPROC 


13108 REM ** Reset the system 
132@ DEF PROCClear 

1338 CLS 

1340 Cursor_X%=@:Cursor_Y%Z=0 
135@ PROCClear_Flags 

136@ ENDPROC 


138@ DEF PROCClear_Flags 
1398 Double_Ht=FALSE 
1408 Insert=FALSE 

1410 Markers=8 

1420 Block_Marked=FALSE 
1430 ENDPROC 


1452 REM *# Set the markers 

1460 DEF PROCMarker 

14720 IF Markers=2 PROCBleeps(3,1@):ENDPROC:REM ##* 

Already set? 

148@ IF Markers=@ Mark_X%(@) =Cursor_X%!Mark_YZ%(@) 
=Cursor_Y%: PROCBleeps (1,15) :Markers=1:Block_Marked 
=FALSE: ENDPROC 

1492 IF FNMark_Bad PROCBleeps(5,5) :ENDPROC 

15@0 Mark_X%(1)=Cursor_X%: Mark_Y%(1) =Cursor_Y%:PR 
OCBleeps(2,15) :Markers=2 

1510 Block_Marked=TRUE 

152@ ENDPROC 

1530 

1540 REM ** Check 2nd marker below and to right o 
f first 

155@ DEF FNMark_Bad 

1562 Flag=Markers=1 

1578 Flag=Flag AND Cursor _X%>=Mark_X%(@) 

158@ Flag=Flag AND Cursor_Y%>=Mark_YZ(0) 

1592 =NOT Flag 

1622 

1610 REM ** Copy the marked block to a new pos‘n 

1620 REM ** Cursor shows top left of new pos‘n 

16430 DEF PROCCopy 

1640 REM ** Check there’s room 

165@ IF NOT FNRoom PROCBleeps (5,5) sENDPROC 

1660 REM *#* Fill Bufferil with marked block 

1678 PROCFil1_Buff (Bufferi,Mark_X%(@) ,Mark_YZ(@), 
Mark_XZ(1) ,Mark_YZ(1)) 

1688 REM ** Write to new posn 

1698 PROCWrite_Buff (Bufferi,Cursor_X%,Cursor_YZ%Z,M 
ark_X%(Q@) ,Mark_Y%(@) ,Mark_X%(1) ,Mark_Y%Z(1)) 

17200 Markers=2 

1718 ENDPROC 

1722 


1730 REM *#* Swap 2 blocks - a marked one and 
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1740 
1758 
1760 
177@ 
1788 
1798 


REM ## one located by cursor 

DEF PROCSwap 

REM #*#* Check there‘’s room 

IF NOT FNRoom PROCBleeps (5,5) 1: ENDPROC 

REM ** Fill Bufferi with marked block 
PROCFil1l_Buff (Bufferi,Mark_X%(@) ,Mark_Y%(@), 


Mark_X%(1) ,Mark_Y%(1)) 


1880 
16818 


REM ** Fill Buffer2 with other block 
PROCFil1_Buff (Buffer2,Cursor_X%,Cursor_Y%,Cu 


rsor_XZ%+Mark_X%(1) -Mark_X%(@) ,Cursor_Y%+Mark_Y%(1) 
—Mark_YZ%(@)) 


18208 
econd 
18308 


REM #*#* Re-write first block in Place of s 


PROCWrite_Buff (Bufferi,Cursor_X%,Cursor_Y%,M 


ark_XZ%(@) ,Mark_Y%(@) ,Mark_X%(1) ,Mark_Y%Z(1)) 


1848 
1858 


REM ##* Overwrite first with second 
PROCWrite_Buff (Buffer2,Mark_X%Z(@) ,Mark_Y%(@) 


»Mark_X%(O) ,Mark_Y%(@) ,Mark_X%(1) ,Mark_Y%(1)) 


1862 
1872 
188a@ 
1892 
1920 
1912 
1920 
1938 
1940 
1950 
1968 
1979 
1989 
1999 
20080 
2010 
2020 
2830 
2040 
2050 
2062 
2872 
2080 
28998 
2100 
2110 
2120 
2130 
2140 
2150 
21462 
2178 
218 
2198 
22008 
2218 
2220 
2230 
2248 
2250 
2268 
2278 
next 
2289 
2290 
2300 
4) 
2310 
2320 
2330 
2340 
2350 
2342 
2378 
2388 
2390 
2400 
2410 
2420 
2430 
2440 
2452 
2468 
(5,9) 
2470 
2480 


Markers=0 
ENDPROC 


REM ** Cursor control 

DEF PROCLeft 
Cursor_X%=Cursor_X%-1 

IF Cursor_X%=-1 Cursor _X%=39: PROCUp 
PRINT TAB(Cursor_X%,Cursor_Y%); 
ENDPROC 

DEF PROCRight 

Cursor _X%=Cursor_X%+1 

IF Cursor_X%=4@ Cursor _X%Z=@: PROCDown 
PRINT TAB(Cursor_X%,Cursor_Y%); 
ENDPROC 

DEF PROCDown 

Cursor _Y%=Cursor_Y%+1 

IF Cursor_Y%=25 Cursor_Y%=0 
PRINT TAB(Cursor_X%,Cursor_Y%); 
ENDPROC 

DEF PROCUp 
Cursor_Y%Z=Cursor_Y%-1 

IF Cursor_Y%=-1 Cursor_Y%=24 
PRINT TAB(Cursor_X%,Cursor_Y%); 
ENDPROC 


REM ** Delete - allow for INSERT 
DEF PROCDel 

IF Cursor _X%=@ ENDPROC 

IF Insert THEN PROCDel1 ELSE PROCDel2 
ENDPROC 


mode 


REM #* If INSERT, back up row 

DEF PROCDel 1 

FOR X%=Cursor_X% TO 39 

P%? (40*Cursor_Y%+X%-1) =P%? (40*Cursor_Y%+X%) 
NEXT 


PRINT TAB(39,Cursor_Y%) " "; 

IF Double_Ht AND Cursor_Y%<24 PROCDel11 
PROCLeft 

ENDPROC 


REM #* If DOUBLE HEIGHT flag set, handle the 
row 

DEF PROCDel111 

FOR X%=Cursor_X% TO 39 

P%? (40*#Cursor _Y“4*+X2%+39) =P%? (40#Cursor_Y%~+X%+ 


NEXT 
PRINT TAB(39,Cursor_Y%+1) " "3 
ENDPROC 


REM *# Non-INSERT deletion 

DEF PROCDel2 

PROCLeft 

Key=32:REM ## Use space to o’write 
PROCChar 

PROCLeft 

ENDPROC 


REM ## Read a file back from tape 

DEF PROCTape_Read 

CLS 

INPUT TAB(S5,8) "Read back which file to" TAB 
"the screen? " File_Name$s 

PRINT °° 

PROCOSCLI("LOAD """+File Name$+"""" "+STRE~(B 


ufferi)) 


2498 
2508 
2518 
2520 


REM ##* Move from buffer to screen 
FOR I%=@ TO 999 STEP 4:P%!1I1%=Bufferi!I%:NEXT 
ENDPROC 


REM ## Copy PRINT lines 
REM #* to the screen 
DEF PROCProg_Read 
Q%=PAGE 
VDU23,1,8;0;0;0; 

FOR Y%Z=@ TO 24 
PROCFind_Qts 


2600 FOR X%=@ TO 39 STEP 4:P%! (40#Y%+X%) =O%!X%:NE 
XT 

2618 QO%=0%+40 

2628 NEXT Y% 

2638 VDU23,1,1;0;8;0; 

2648 ENDPROC 

2658 

2668 REM *# Check that Key is in the defined ra 
nge 

2678 DEF FNKey_In(lo,hi) 

2688 =(Key>=lo) AND (Key<=hi) 

2698 

270@ REM ** Shift along row if INSERT mode 
271@ DEF PROCSpace(x%, y%) 

2728 Start%Z=PLty%#40+x% 

273@ FOR [%=Start%+39-x% TO Start% STEP -1:?I%=1I% 
?-1:NEXT 

2748 ENDPROC 

2758 

2768 REM ** Sound Bleeps 

2778 DEF PROCBleepsi(qty,length) 

2788 FOR iz#1 TO qty 

2798 SOUND 1,1,128,length 

2888 SOUND 2,1,121,length 

2810 NEXT 

2828 ENDPROC 

2838 

2848 REM #*# Ensure enough room for move 
285@ REM *## not to go off screen edges 

2868 REM ##* and that things are set formove 
287@ DEF FNRoom 

288@ Flag=Block_Marked 

2898 Flag=Flag AND Cursor _X%+Mark_X%(1) -Mark_X%(@ 
»<40 

2988 Flag=Flag AND Cursor_Y%+Mark_Y%(1) -Mark_Y%(@ 
»<25 

2918 =Flag 

2928 

2938 REM ## Fill a buffer 

2958 Ptr%=2 

2968 FOR X%=x1 TO x2 

2978 FOR Y%eyi TO y2 

2988 buff _no?PPtr“=PX%? (4O#YL+X%) 

29980 Ptr%=Ptri%+i 

3082 NEXT 

3018 NEXT 

3828 ENDPROC 

3838 

3048 REM ## Write a buffer to screen 

3@5@ DEF PROCWrite_Buff (buff_no,x8,y@,x1,y1,x2,y2 
) 

3868 Ptr%=8 

3870 FOR XX=x®@ TO xO+x2-x1 

3888 FOR Y%ny8 TO yB@+y2-yi 

3OIDB PA? (4OH#YA4X%) sbuff_no?Ptr% 

3100 PtrX%#Ptr%+1 

3118 NEXT 

3128 NEXT 

313@ ENDPROC 

3148 

3150 REM ## Find quotes at the start 

3160 REM ## of the next PRINT 

3170 DEF PROCFind_Qts 

318@ REPEAT 

3198 Q%#0%+1 

3200 UNTIL ?7Q%#aASC (Hn) 

3218 Q%eQ%+1:1REMe* First free space 

3228 ENDPROC 

3238 

3248 REM #** Send contents of "strings" to 
3250 REM #**# Command Line Interpreter 

3268 DEF PROCOSCLI (string) 

3278 #String_Buffestrings 

3280 X%=String Buff MOD 256 

3290 YxeString_ Buff DIV 256 

S308 CALL &FFF7 

3318 ENDPROC 
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{1 — Load to PRINT State- 
ments This key will translate 
the screen directly into PRINT 
statements which you can then 
incorporate into your Own pro- 
grams. For it to work, there 
MUST be 25 dummy PRINT 
lines at the start of the program, 
as shown in the listing. Each line 
must have precisely 40 spaces 
between the double quotes; 
after you use fl, these spaces 
will be filled with the characters 
on the screen and you can exit 
from the program and delete all 
the program except those lines. 
The function can be used as 
often as you like while SCRED? 
is running — the PRINTs will 
always contain the last screen 
you saved. 

£2 — Initialize pressing this 
key will clear the screen, put the 
cursor at top-left and set the 
starting conditions of ‘Over- 
write’ and ‘Single-heighft. 

£3 — Clear Flags Key £8 wil! 
set the program to use Over 
write and Single-Height input 
modes, and will clear the 
markers, but will not alter the 
display on the screen or move 
the cursor. It is particularly use- 
ful when (if?) you get confused, 
since it sets things back to a 
known state. 

£4 — Insert Mode SCRED7's 
normal operating mode is 
‘Overwrite’, in which anything 
you type overwrites whatever is 
on the screen at the cursor posi- 
tion. If, however, you select 
‘Insert’ by pressing {4, the pro- 
gram will shift everything to the 
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right of the cursor one space 
right each time you type a 
character. Anything which 
“falls off the end” will be lost — it 
does not wrap-round to the next 
line. If you are in Double-Height 
mode, both parts of the affected 
characters will be shifted. 

£5 — Overwrite Mode Not 
surprisingly, key {5 will put the 
system back to its normal entry 
mode. 

f6 — Set Marker The 
screen markers are used in 
conjunction with the block 
copy and exchange opera- 
tions, and define an ‘active 
block’. If no markers are set, 
pressing this key records the 
current cursor position, defin- 
ing the top-left comer of a 
block on the screen. A single 
tone will sound. If one marker 
is already set, another press 
will set the cursor position as 
the block's bottom-right cor- 
ner, two bleeps sound. The 
second corner MUST NOT be 
above or to the left of the first. 
If you make an error, or try to 
set more than two active 
markers, the key is ignored 
and you will hear multiple 
bleeps. The markers are phan- 
toms — they do not actually 
appear on the screen. 

7 — Copy Once a block 
has been marked, you can 
move the cursor to almost any 
position and, by pressing key 
f7, make a copy of the block 
The cursor defines the copy's 
top left corner. The only limita- 
tion is that there must be room 


to fit in the copy below and to 
the right of the cursor — the 
copy will not wrap-round the 
edges of the screen. Once a 
block has been marked, it can 
be copied as many times as 
you like without its needing to 
be redefined. 

£8 — Swap Blocks This 
operation works in a_ very 
similar way to Copy, except 
that the marked and cursor 
defined areas are exchanged 
completely. As before, there is 
no wrap- round. 

SHIFT/£0 — Read from 
Tape or Disc If you press the 
SHIFT and {0 keys together, 
the program will read in a 
previously-saved copy of the 
screen and display it In the 
normal BBC way, you will be 
asked for the title of the file 
you wish to load. 

CTRL/f0 — Read from 
PRINT Statements If you 
press this key, the program will 
use whatever is held in the 
PRINT statements at the start 
of the program to form the 
screen display. If they are in 
their initial blank state, the 
screen will be cleared — 
otherwise you will restore the 
last screen saved via key fl. 


DELETE The Delete key 


operates in its normal way, but 
with alterations to match the 
special needs of Mode 7. In 
the normal ‘Overwrite’ mode, 
the key will replace the 
character at its left with a 
blank and move left. Charac- 
ters to the right will not be 
affected. If, however, you are 
in ‘Insert’ mode, the characters 
to its right will be dragged left 
with the cursor. If you delete in 
the middle of entering double- 
height characters, then both 
rows will be handled; this will 
not necessarily happen if you 
move the cursor from a ‘single’ 


to a ‘double’ area before 
deletion. 
ESCAPE Pressing the 


ESCAPE key will shut the 


program down. 


THE PROGRAM 
Listing 1 is a_ printout of 
SCRED7. At the start of the 
program is the area reserved 
for the dummy PRINT state- 
ments, which are skipped past 
by the GOTO at line 10. 
Make sure that the statements 
are in this place and that they 
are exactly right, or else the 
program is likely to get very 
confused. 

Line 290 reserves space for 
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the program's amays and, 
most importantly, the two buf- 
fers used by the copy, swap 
and I/O functions. PROCInit 
(lines 670-790) then sets up 
the system and allocates suit- 
able codes to the function 
keys. 

The heart of SCRED7 is the 
REPEAT . . . UNTIL loop at 
lines 310-580. This reads a 
key and, if necessary, de- 
codes it to set a Teletext con- 
trol code. In particular, line 
340 converts the “SHIFT/ 
CTRL/f’ keys, which retum 
values from 3 to 12, to the 
range of values needed for 
double-height, flash, new 
background, etc. The main 
loop then gives what amounts 
to a CASE function to select 
the action required of each 
keypress. 

Each of the program's func- 
tions is served by one of many 
PROCedures which, together, 
form the bulk of the program. 


Each is, I hope fairly under- 
standable and uses meaning- 
ful variable names. If you 
really wanted or needed to, 
you could cut down the size of 
SCRED7 quite substantially by 
shortening these names. 

When displayable charac- 
ters are typed into the pro- 
gram, the Beeb’s_ normal 
PRINT TAB() statement is used 
to put them onto the screen. 
However, all the screen man- 
ipulation and storage routines 
address the screen memory 
directly. They use P%, which is 
set to &7COO, as a pointer to 
the start of the screen. This 
approach does mean. that 
SCRED7 would not work down 
the Tube, but does contribute 
greatly to its speed of 
operation. 

The tape and disc YO 
routines use ¥* LOAD and 
*® SAVE commands to read 
and write the data to and from 


Bufferl. Lines 1140 and 2480 
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then invoke the computer's 
string functions and Command 
Line Interpreter to pass BASIC 
variables to the OS via PRO- 
COSCLI at lines 3260-3310. If 
you have BASIC II, you can 
alter the PROCOSCLIs in lines 
1140 and 2480 to OSCLI, and 
delete the PROCedure. 


CONCLUSION 


In this article, | have described 
a very useful Mode 7 screen 
editor. The program makes life 
much easier when it comes to 
designing a Teletext display, 





Fig. 1 The graphics charac- 
ters and the corresponding 
keys to press to obtain them. 
They are arranged in ascend- 
ing order of ‘on pixels’ (in 
black) and with similar pat- 
terns grouped together (it’s 
easier than using the Beeb’s 


Appendix). 












writing Mode 7 routines or sim- 
ply exploring just how the 
Beeb’s least-understood mode 
works. 

The many function key 
operations may make the pro- 
gram look forbidding but, in 
practice, it is not. A few minutes 
playing with SCRED7 will show 
you that it really is very simple to 
use and give you an idea of just 
how powerful Mode 77 
can be. 

I hope that 
you find 
it useful. 








“ot 





BASIC programs to move objects of any size around the 
screen at speed via five extra commands. It is not 
compatible with Level III BASIC or DOS. 

The program loads at top of memory and automatically 
executes upon loading. It can be loaded with the system 
command or any other load routine: for details see Table 1. The 
ORG column shows the operand that should be on line 390 of 
the listing for the relevant memory size. 


THE FACILITIES 


Up to 20 sprites can be defined, each of any size. They can be 
moved around the screen in any direction by a single 
command. 


S prite is a short, simple program that provides the facility for 


@ KILL This command resets all defined sprites to the start of 
the screen, sets the sprite size to one character by one character 
and clears the GET buffer. It is used at the start of programs 
before new sprites are defined. Format of KILL : KILL. For 
example: 


10 CLEAR 50:KILL: DEFSTR A-F,P,R 


@ FIELD This command sets the sprite size and holds for all 20 
possible sprites. They can be any size — from one character by 
one character to 64 by 16. Format of FIELD : FIELD(x, y) where x 
= length of the sprite (from 1 to64) and y= height of the sprite 
(from | to 16). For example: 


20 KILL: FIELD(17,5) 


@ NAME This command defines a sprite to be at a certain 
screen location. The position supplied is stored in the sprite 
buffer within the program and the position is updated every time 
that particular sprite moves. Note that after the KILL command, 
all 20 sprites are defined to be at 15360. Format of NAME : 
NAMEn,p where n= sprite number (from 1 to 20) and p= 
screen position (from 15360 to 16383). For example: 


20 KILL: FIELD (6,6): NAMES, 15570 


The three previous commands were initialisation operations. The 
final two perform actual visible operations. 
@ PUT This command actually moves the sprites around the 
screen. Four parameters are supplied by the user. sprite 
number, direction, number of places and the erase flag. 
Consider Fig 2. This is the arrangement of keys usually found on 
a separate numeric keypad and forms the direction parameter 
for SPRITE. Taking 8 as up, 2 as down and so on then a single 
digit number provides the direction for the PUT command. 
Figure 3, however, shows the movement each digit 
represents. For example, 9 causes a movement of up and right. 
Format of PUT: PUTn,d,t,s where n= sprite number(from | to 
20), d= direction as explained above (1 to 9), t= number of 
places to move (from 1 onwards) and s= erase flag — s=0 if 
sprite is to be left at original position and s=]1 if original sprite is 
to be erased before moving. For example: 


49: PUT1,6,1,1 


This command will move sprite number one to the right and 
erase the old image whereas: 


320 PUT7,3,5,0 


will move sprite number seven five places down and five places 
right and will not erase the old one. 

Listing 1 is a demonstration program using the PUT 
command. The user types a key from 1 to 9 to move the block 
around — each time it moves three places in the specified 
direction. Note that if the t parameter is greater than one, the 
user will actually see the sprite move and not just disappear and 
reappear in its new place. 

@ GET This is a special command (totally separate from the 
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Many new computers offer 
hardware sprite graphics but the 
old-timers can still do an excellent 
simulation in software. Here’s 
some graphics magic for the Genie. 


Fig. 1 Numeric keypad 
configuration — the 
numbers are used as the 
sprite direction parameter. 


Fig. 2 The movement 
resulting from each 
‘direction digit’. 


19 CLS: PRINT CHR$(188) STRINGS$(15,14@) CHRS$(188): 
PRINT CHRS$(191) " Video Genie " CHR$(191): PRINT 
CHR$ (191) " Soft-Sprite ™" CHRS$(191): PRINT 

STRS (17,131) 

20 KILL: FIELD 17,5: NAME1,1536@ 


30 AS=INKEYS$: IF A$="" THEN 38 ELSE A=VAL(AS$): IF A=@ 
THEN 39 


40 PUT 1,A,3,1: GOTO 30 


Listing 1. Demonstration program using PUT. 


1@ CLS: PRINT CHR$(188) STRINGS$(15,1490) CHRS(188): 
PRINT CHR$(191) " Video Genie " CHRS$(191): PRINT 
CHR$(191) " Soft-Sprite "“ CHR$(191): PRINT 

STRS (17,131) 


20 KILL: FIELD(17,5): P=15360: GETP,@: CLS 


38 FOR Y=1 TO 3: T=P: FOR X=1 TO 3: GETP,1: P=P+2@: 
NEXT X: P=T+(5*64): NEXT Y 


48 GOTO 4¢ 


Listing 2. Sprite duplication program. 
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‘Listing 3. The assembler listing fro Genie Sprite. 


3C 8B 60018 ORG 3C 88H 766D 47 

3C86 4C 98020 DEFM ‘LOADING §S 7O6E 52 

PRITE.ss.' 7O6F 41 

3CO1 4F 7078 4D 

3C82 41 7671 OA 983408 DEFB 18 

3C03 44 7872 56 98358 DEFM ‘VERSION l. 
3C84 49 ®@ BY ANDREW HOWARD' 

3C05 4E 7073 45 

3C86 47 7074 52 

3C07 20 7875 $2 

3CO68 53 7076 49 

3C89 58 7077 4F 

3COA 52 7078 4E 

3C0B 49 78679 28 

3C8C 54 707A 31 

3CG9D 45 767B 2E 

3COE 2E 787C 38 

3COF 2E 767D 28 

3C18 2E T7O7E 42 

SC1ll ~2E. 767F 59 

4916 09830 ORG 4916H 7688 28 

4916 80 76 90040 DEFW SPRITE 7081 41 

491E 00058 ORG 491EH 7082 4E 

4G1E 389 78 98068 DEFW SPRITE 7883 44 

7000 0908798 ORG 7000H 7084 52 

76606 21 1B 36 90088 SPRITE LD HL,301BH 7885 45 

70803 22 16 48 00890 LD (4016H) ,HL 7086 57 

7006 21 58 04 981869 LD HL,458H 7087 20 

7009 22 1E 48 061190 LD (401EH) ,HL 7088 48 

700C 3E C3 90120 LD A,195 7089 4F 

706E 32 TF 41 099139 LD (417FH),A 708A 57 

(944 32. 82 41 90140 LD (4182H) ,A 798B 41 

7014 32 8E 41 00158 LD (418EH),A 708C 52 

goiy 32 91 41 90168 LD (4191H),A 708D 44 

deum Se-'RO “ah 90170 LD (417CH) ,A 708E OA 99360 DEFB 10 

761D 21 9B F6 99188 LD HL,KILL 708F 28 93370 DEFM ‘'(C) APRIL 
7020 22 92 41 38198 LD (4192H) ,HL 1984." 

70623 21 9E F6 88288 LD HL,NAME 7098 43 

7026 22 8F 41 908219 LD (418FH) ,HL 7691 29 

7029 21 B87 FF $9220 LD HL,GET 7992 29 

7082C 22 80 41 99239 LD (4180H) ,HL 7093 41 

762F 21 DA FE 88249 LD HL,PUT 7094 59 

fase, 22 BS: 42 40256 LD (4133H) ,HL 7095 52 

1O35 424i ~2D 6 08268 LD HL,FIELD 7696 49 

7038 22 7d 41 30270 LD (417DH) ,HL 70897 4c 

703B CD 4A 18 90280 CALL 1B4AH 7998 2g 

7O63E CD GE F6 099290 CALL CLEAR 7699 31 

7041 21 4A 78 983089 LD HL, TITLE 709A 39 

7044 CD 75 2B 98319 CALL 2B75H 729B 38 

78647 C3 72 68 98320 IP 72H 709C 34 

704A 53 00330 TITLE DEFM 'SPRITE VI 709D 2E 

DEO GENIE SOFT-SPRITES PROGRAM! 709E BA Ba 30380 DEFw 19 

704B 58 F61D 88398 ORG O@F61DH 
704C 52 F61D C 98400 FIELD RST 8 

7804D 49 F6lE 28 00410 DEFM. *¢* 

734E 54 FGOlF €D @2 28 80420 CALL 2B02H 
7O04F 45 F622 7B 98436 LD A,E 

704C 52 F623 B7 80440 OR A 

784D 49 F624 CA 4A IE 89450 JP Z, 1E4AH 
704E 54 F627 FE 41 00460 CP 65 

704F 45 F629 D2 4A 1E 98470 JP NC,1E4AH 
70560 28 F62C 32 44 F6 93480 LD (XSIZE),A 
7051 56 F62F CF 88490 RST 8 

7052 49 F639 2C 88500 DEFM , 

7053 44 F631 CD 62 28 005198 CALL 2B@2H 
7654 45 F634 7B 98520 LD A,E 

7055 4F F635 B7 98530 OR A 

7056 28 F636 CA 4A IE 89548 JP Z,1E4AH 
7057 47 F639 FE il 98550 CP 17 

7058 45 F63B D2 4A 1E 88560 JP NC, 1E4AH 
70659 4k F63E 32 45 F6 823570 LD (YSIZE) ,A 
705A 49 F641 CF 098589 RST 8 

705B 45 F642 29 98590 DEFM '‘)' 

705C 20 F643 C9 023608 RET 

705D 53 F644 90 90618 XSIZE NOP 

705E 4F F645 89 98620 YSIZE NOP 

705F 46 F646 80636 SPRTBL DEFS 4@ 

7060 54 F66E ES 049648 CLEAR PUSH HL 

7661 2D F66F 21 CF FA 806650 LD HL,BUFFER 
7862 53 F672 11 DO FA 88668 LD DE, BUFFER+1 
7063 59 FO/5 @1 FF 463 986708 LD BC,1023 
7064 52 F678 36 28 88680 LD (HL) ,32 
7065 49 F67A ED BO 806908 LDIR 

7066 54 F67C 21 68 3C 98708 LD HL,15360 
7067 45 F67F DD 21 46 F6 96718 LD IX,SPRTBL 
7068 53 F683 66 14 007298 LD B,20 
7069 20 F685 DD 75 986 608738 RESCUR LD (IX+8),L 
706A 58 

706B 52 

706C 4F 


_s 
= 


ama eee 
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F688 
F688 
F68D 
F68F 
F691 
F693 
F696 
F699 
F69A 
F698 
F69E 
F6A1 
F6A2 
F6A3 
F6A6 
F6A8 
F6AB 
F6AC 
FGAD 
F6AE 
F6BO 
F6B1 
F6B4 
F6BS 
F6B6 
F6B8 
F6B9 
F6BA 
F6BD 
F6BE 
F6CO 
F6C3 
F6C5 
F6C8 
F6CB 
F6CE 
F6CF 
FACF 
FECF 
FEDO 
FED1 
FED2 
FED3 
FED4 
FEDS 
FED6 
FED7 
FED8 
FED 
FEDA 
FEDD 
FEDE 
FEDF 
FEE2 
FEE4 
FEET 
FEE8 
FEE9 
FEEA 
FEEC 
FEED 
FEFO 
FEF1 
FEF2 
FEF4 
FEFS 
FEF6 
FEF9 
FEFA 
FEFB 
FEFE 
FFOO 
FFO3 
FFO4 
FFOS 
FFO7 
FFO8 
FFOB 
FFOC 
FF OD 
FFOF 
FF19 
FF1l 
FF14 
FF15 
FF16 
FF19 
FF1C 
FF1D 
FFLE 


A ETI TRE OE PR TIES A ENE EPR MOONE STEMS CREA NE EAT ROR i TE IS EN SI RYE AE SE OA AE NE AIEEE! ER ETI EON MESA EH 
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01 


F6 


2B 


1E 


F6 


2B 


1lE 


1E 


FE 


2B 


1lE 
FE 


2B 


95748 
087508 
00768 
908776 
08780 
08790 
038008 
08819 
945820 
09838 
80849 
98850 
809869 
98870 
83880 
90899 
98980 
98918 
98928 
98939 
089498 
99959 
98968 
089708 
98989 
999998 
918808 
01019 
91820 
810390 
91848 
810658 
91968 
81879 
91888 
91898 
81180 
61116 
81129 
81130 
81140 
01158 
81168 
91178 
91180 
81198 
812800 
81219 
91226 
61238 
91248 
01250 
91268 
91270 
91286 
91296 
01300 
91318 
91320 
91338 
91348 
91350 
01366 
91379 
91380 
01398 
91488 
91418 
G142¢ 
81439 
91448 
01458 
91460 
814708 
91480 
01499 
91508 
91518 
91528 
01538 
015498 
91558 
015608 
81576 
91586 
81598 
81688 
81619 
81620 
81630 


KILL 
NAME 


TEMP 
BUFFER 
MOVTBL 


COUNT 
ERASE 
PUT 


(IX+1l),H 
IX 


het 
(XSIZE) ,A 
(YSIZE),A 
HL 


NC, 1E4AH 
A 

A,A 

E,A 

D,@ 

HL 
HL,SPRTBL 
HL, DE 
(SP) ,HL 
IX 

8 

Rogie 
2B02H 
A,D 

3CH 
C,1E4AH 
40H 

NC, 1E4AH 
(IX+8),E 
(IX+1) ,D 


1624 
1824 
63 
64 
65 
=] 


1 

-65 
-64 
“83 


2B02H 
A,E 

A 
Z,1E4AH 
21 

NC, 1E4AH 
A 

A,A 

E,A 

D,@ 

HL 
HL,SPRTBL 
HL,DE 
(SP) , HL 
IX 

8 

ae 
2B02H 
A,E 

A 
Z,1E4AH 
19 

NC, 1lE4AH 
A 

E,A 

D,@ 

HL 
HL,MOVTBL 
HL,DE 
(SP) ,HL 
IY 

8 

es 
2B02H 
A,E 

A 
Z;1E4AH 
(COUNT) ,A 
8 


’ 
2B92H 


FF21 
FF22 
FF24 
FF27 
FF2A 
FF 2B 
FF2E 
FF31 
FF34 
FF37 
FF38 
FF39 
FF3A 
FF3D 
FF3E 
FF41] 
FF43 
FF44 
FF45 
FF48 
FF49 
FF 4B 
FF4D 
FF4E 
FF 4F 
FF51 
FF52 
PFS5 
FF56 
FES7 
FF58 
FF59 
FF5B 
FF5C 
FF5D 
FF66 
FF63 
FF66 
FF67 
FF69 
FF6A 
FF6D 
FF6F 
FF7@ 
FF73 
FF76 
FF79 
FF7C 
FF7D 
FF7E 
FF7F 
FF82 
FF83 
FF86 
FF87 
FF88 
FF8A 
FF8B 
FFS8E 
FF8F 
FF9O 
FF91 
FF92 
FF94 
FF9S 
FF98 
FF99 
FF9C 
FF9D 
FFAS 
FFA1 
FFA4 
FFAS 
FFA6 
FFA7 
FFA8 
FFAQ 
FFAB 
FFAD 
FFAF 
FFB1 
FFB3 
FFB4 
FFBS 
FFB6 
FFB7 
FFBA 
FFBB 
FFBE 
FFC1] 


44 


Al 


F9 
40 


E9 
D8 
D8 
2A 


A8 


A8 
4A 


1E 
FE 


0B 
1 


F6 
F6 


F6 


FF 


FE 


BB 


F6 


FF 


“h) 


FE 


FE 


FF 


FF 


2B 


FF 
1lE 


01649 
81658 
91668 
91678 
81680 
81690 
817008 
917190 
91720 
91738 
817498 
81759 
01769 
91770 
91780 
91798 
91800 
91818 
91820 
91830 
01840 
91856 
81860 
01878 
01888 
318990 
919008 
91919 
91920 
91930 


01948 
81950 
81968 
01978 
01988 
91996 
02888 
820190 
82028 
928038 
62848 
828650 
928068 
828678 
828088 
92898 
92100 
02118 
$2120 
82138 
02148 
82158 
82168 
82178 
92180 
92190 
82208 
92218 
82229 
92230 
02248 
82258 
92268 
82270 
02288 
82296 
82308 
82310 
02320 
82330 
82348 
02356 
023698 
92370 
92388 
92399 
82400 
024190 
82429 
82438 
024498 
92450 
92468 
92478 
92480 
82498 
92508 
92518 
02528 
82538 


PUTLP 


STORE 


STORE 2 


STORE3 


PUT2 


PUT3 


PUT4 


PUTS5 


PUT7 


PUTS8 


GET 


A,E 

2 

NC, 1E4AH 
(ERASE) ,A 
HL 

L, (I1X+0) 
H, (IX+1) 
DE, TEMP 
A, (YSIZE) 
B,A 

HL 

BC 

A, (XSIZE) 
B,A 

PUT7 
Z,STORE3 
A, (HL) 
(DE) ,A 
A, (ERASE ) 
A 
Z,STORE3 
(HL) ,32 
HL 

DE 
STORE2 
BC 

HL, 64 
DE,HL 
(SP) ,HL 
HL, DE 

DE 

STORE 

HL 

HL 

L, (IX+0) 
H, (IX+1) 
A, (IY+@) 


HL,DE 
(IX+0),L 
(IX+l) ,H 
DE, TEMP 
A, (YSIZE) 
B,A 

HL 

BC 

A, (XSIZE) 


DE,HL 


HL, DE 


A, (COUNT) 


A 
(COUNT) ,A 
A 
NZ,PUTLP 


PUT7 

Z 

A, (DE) 
(HL),A 


A,H 
3CH 
C,PUT8 
40H 
NC, PUT8 
A,1l 


FFC2 
FFC3 
FFC4 
FFC5 
FFC8 
FFC9 
FFCB 
FFCE 
FFD1 
FFD2 
FFD5 
FFD8 
FFD9 
FFDA 
FFDB 
FFDE 
FF DF 
FFE2 
FFE4 
FFE7 
FFE8 
FFEA 
FFEB 
FFEC 
FFEE 
FFEF 
FFFO 
FFF1 
FFF2 
FFF4 
FFFS5 
FFFS8 
FFF9 
FFFA 
FFFB 
FFFC 
FFFE 
FFFF 
7008 
88808 


BUFFER 
CLEAR 
COUNT 
ERASE 
FIELD 
GET 
GET2 
GET3 
GET4 
GETS5 
KILL 
MOVTBL 
NAME 
PUT 
PUT 2 
PUT 3 


D5 02540 PUSH DE 
CF 62558 RST 8 
2c 82560 DEFM ',' 
CD @2 2B 82576 CALL 2B02H 
7B 62580 ia Re 
FE 02 62590 cr 2 
D2 4A 1E 82600 JP NC, 1E4AH 
11 CF FA 82619 LD ‘DE, BUFFER 
E3 02620 EX (SP) ,HL 
32 D9 FE 82630 LD (ERASE) ,A 
3A 45 «FG 62640 LD A, (YSIZE) 
47 82650 LD BB, A 
ES 82660 GET2 PUSH HL 
c5 32670 PUSH BC 
3A 44 F6 52688 LD =A, (XSIZE) 
47 82690 LD iB, A 
CD A8 FF 02700 GET3 CALL PUT? 
28 OC 82716 JR 2,GETS 
3A D9 FE 82728 LD _—A, (ERASE) 
B7 82730 OR A 
28 84 32740 JR 2,GET4 
1A 02750 LD A, (DE) 
77 02768 LD (HL) ,A 
18 062 82770 JR GETS 
7E 62780 GET4 LD A, (HL) 
12 82790 LD (DE) ,A 
23 62800 GETS INC. HL 
13 82810 INC DE 
16 EB 32826 DINZ GET3 
Gi 32830 POP BC 
21 48 @@ 52848 LD  4HL,64 
EB 62850 EX  DE,HL 
E3 32860 EX (SP) ,HL 
19 32878 ADD HL,DE 
D1 02880 POP DE 
16 DB 828908 DINZ GET2 
El 82900 POP HL 
cg 62918 RET 
82920 END SPRITE 

TOTAL ERRORS 

FACF PUT4 FF83 

F66E PUTS FFAL 

FEDS PUT? FFA8 

FED9 PUTS FFBS 

F61D PUTLP FF2A 

FFB? RESCUR F685 

sighed SPRITE 7000 

dh SPRTBL F646 

cS Spat STORE FF38 

lhe STORE2 FF3E 

FO9B STORE3 FF4D 

FECP TEMP F6CF 

FO9E TITLE 704A 

FEDA XSIZE F644 

FFOF YSIZE F645 

FF7D 


SUMMARY OF COMMANDS 


KILL 


FIELD 


NAMEn, p 
PUTn,d,t,s 
GETp,m 


CapacityProtect 


48K 
32K 
16K 


Reset all sprite variables 

Define sprite size 

Define sprite n to be at position p 

Move sprite n direction d, t places: s=erase flag 

Get from position p to buffer or vice versa 
according to m 


TABLE 1 


Start End Entry ORG 
address address address operand 


65535 
49152 
32767 


28672 
28672 
28672 


OF61DH 
OB61DH 
0761DH 


63005 
4662] 
30237 
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PUT command) in which the user supplies a screen position. 
According to a flag, a block of the current sprite dimensions can 
be read from the screen into a buffer, or the buffer can be read 
back onto the screen. Format of GET: GETp,m where p = 

screen position (from 15360 to 16383) and m= move flag — m 

= 0 reads the block from the screen to the buffer. m= 1 reads the 
block from the buffer to the screen. Suppose we wanted to make 
eight more copies of the sprite in the previous program: see 
Listing 2. 


ACCESS TO THE SPRITE BUFFERS 


The current sprite size can be obtained by: 


PEEK (—2492) for the length x and 
PEEK (—2491) for the height y 


The sprite position table starts at —2490, the formula for 
accessing the position of sprite n is: 


entry addr = —2490 + (2*(n—1)) 


For example, consider sprite number three. The buffer position 
is —2490 + (2*2) = —2486. Therefore, upon execution of: 


X = PEEK (—2436)+-PEEK (—2485)*256 


X will contain the position on the screen of sprite number three. 
The GET buffer starts at —1329 and is a 1024 (1K) byte area of 
memory. The top left hand comer of the current sprite size starts 
at the first position in the buffer. 

The MOVTBL table starts at —305 and contains nine bytes of 
information regarding the directions 1 to 9. For example, 
changing the 63 in —305 to 128 will case a‘l’ direction to move 
two lines straight down, as opposed to one line down and one 
character to the left. 


PROGRAM NOTES 


During loading, a message is displayed on the screen and the 
keyboard and screen vectors are changed to effect automatic 
program execution. The entry and initialisation routine SPRITE 
resets the I/O vectors and enforces the five commands. The 
NEW routine is called, then title control returns to the READY 
message. Note that the keyboard is reset to 301 BH. For those 
without the extra ROMs in 3000H onwards, this should be 
changed to 3E3H. 

The FIELD routine is self explanatory. The call to 2B02H 
evaluates the expression pointed to by HL and places the 
integer result in DE. The KILL routine again is self evident — it 
fills the GET buffer with spaces and resets all 20 sprites to 
15360, the size being 1 by 1. The NAME routine first evaluates 
the sprite number and then calculates its entry in the position 
buffer. The position is then evaluated and if correct is then 
stored in the appropriate buffer. The PUT command first 
evaluates the sprite number, then calculates its entry address in 
the sprite position buffer. Second, the position is evaluated 
and the position in the move tabel MOVTBL calculated. Lastly, 
the count parameter is evaluated and stored and the erase 
value is evaluated and set. 

The subroutine from line 1680 to 1960 reads the sprite from 
the screen and stores it temporarily in the PUT buffer, TEMP. 
Note that if any portion of the sprite is not within screen memory, 
it will not be read from/into the buffer. The old sprite is erased or 
not as it is read, according to the erase flag. The subroutine from 
lines 19'70 to 2080 obtains the new address according to the 
direction and stores it in the sprite buffer, replacing the old 
address. Lines 2090 to 2270 contain the subroutine that stores 
the sprite on the screen at its new position, calling the 
subroutine PUTS which only stores a portion of the sprite if it is 
within screen memory. 

The GET command first evaluates the screen position, then 
the move indicator m which is stored in the erase variable, the 
subroutine from line 2640 to 2910 performs the actual 
move. Finally, the code in lines 2720 to 2790 performs = 
the data transfer in the appropriate direction. 
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wners of the BBC Micro 

and the Electron will 

know that they are 
brimful of graphics modes. 
These modes allow the user to 
decide on his priorities: lots of 
colours, high resolution or 
plenty of program space 
(memory being what it is the 
Acorn machines, ie sparse, you 
can't have all three at once). 

You can have text written to 
the screen in any mode, and 
text characters are displayed 
by setting screen pixels to the 
foreground colour in the shape 
of the required leter — that is to 
say, the screen is bit-mapped. 
This doesn't apply to Mode 7 
on the BBC, which works by 
storing the ASCII codes of the 
displayed characters in screen 
memory and using a special 
character generator to pro- 
duce the screen output. This 
makes Mode 7 very memory- 
efficient — eight times more 
efficient than the nearest mode 
up — but less flexible, since 
the character definitions are 
fixed and inaccessible. 

The character definitions for 
the other seven modes are 
stored as part of the ROM: 
eight bytes per character, 
since the characters are 
defined on an eight-by-eight 
grid and there are fixed 
characters occupy nearly 
three-quaters of a kilobyte in 
memory, so one set of 
definitions has to suffice for all 
types of mode. 

In consequence, the physi- 
cal shape of the letters on the 
screen depends on _ the 
screen resolution, which 
affects the shape of the pixels 
for the selected mode. So text 
appearance has to be a com- 
promise. The design of the 
characters is optimised for 40- 
column display — whether 
over 25 or 32 lines — and is 
quite pleasant. In the two 80- 
column modes, there are twice 
as many pixels to the screen- 
width and hence twice as 
many characters can be fitted 
onto one line, but each 
character is still only eight pix- 
els wide so the text appears a 
bit squashed, though - still 
legible. 

On the other hand, in 20- 
column modes there are only 
half the number of pixels 
across the screen relative to 
40-column, so the letters are 
stretched horizontally. This 
renders them, in my opinion at 
least, almost unreadable, 
especially when there are 
several lines of text. So, is there 





Peter Green 







anything we can do to improve 
the situation? 


WEIGHT LOSS 


Since the characters are bit- 
mapped, we can make them 
any shape we like by re- 
defining them using the 
VDU23 command. To get 40 
characters per line in Modes 2 
and 5, which are 160 pixels 
wide, we need to make each 
character four pixels wide, 
which means only three pixels 
when the gap between letters is 
taken into account. Letters like 
M and W cannot be made to 
look right in this width, so | 
decided to compromise and 
design each letter on a ‘pro- 
portional spacing’ basis. Each 
letter is made as wide as is 
necessary for legibility, from 
one pixel (plus a one-pixel 
gap) for the exclamation mark, 
to five pixels plus a gap for the 
likes of M and W. 

If we print our new charac- 
ters on to the screen using the 
conventional PRINT statement 
and the text cursor, each letter 





NEW TEXT 
FOR OLD 


The main problem with Modes 2 and 5 on the BBC 
Micro and the Electron is that large amounts of text 

tend to be unreadable. Here's a proportional spacing 
routine that will change all that. 


will still be spaced eight pixels 
apart, so the appearance of 
the letters will be improved but 
there will still be only 20 to the 
line and the spacing between 
them will look rather disjoin- 
ted. The answer is print the text 
using proportional spacing, by 
linking the text and graphics 
cursors with the VDU5 com- 
mand. After printing each 
character, the graphics cursor 
is moved along the line a dis- 
tance depending on the width 
of the character just printed. 
Using this technique, an 
average of about 33 charac- 
ters per line is obtained. 

If a full eight bytes of data 
was used to define each new 
character, plus a byte for the 
width so that the cursor could 
be repositioned correctly, the 
data tor each character would 
be nine bytes long. For a print- 
ing speed comparable to the 
norma! PRINT statment, I wan- 
ted the routine to be in 
machine code, and it's much 
easier to multiply by eight in 
machine code (using three left 








shifts of the binary number 
that to multiply by nine to 
obtain the correct position in 
the data table for each charac- 
ter. Since the bottom row of 
almost all the characters is 
blank, my redefined set has a 
zero byte for the bottom row of 
every character (so it can be 
left out of the data table): this 
only affects the comma and 
semicolon, which are moved 
up by one pixel to accom- 
modate this system. 


HOW IT WORKS 


Listing 1 shows the setting up 
of the machine code and 
character data, the procedure 
that calls the assembled 
machine code and a _ short 
demonstration routine. 

Lets consider the machine 
code part first. In this example 
1000 bytes (more than we 
need, actually: this is the 
development program) is 


reserved by the DIM statement 
in line 5010. The first 472 loca- 
tions contain the width and 
redefinition data bytes for the 
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Listing 1. The complete proportional text program, plus a 
sample output routine. 


5400 .nocarry ADC char 
3410 STA char 
5411 BCC nocarryil 
10 REM #** PROPORTIONAL TEXT IN MODES 2 AND 5 53412 INC char+ti 
20 FPROCsetup ts 
30 MODES: VDUI9,0,153;03 53420 .nocarryl STY temp 
40 PROCprint(" !""#$2Z&' ()¥+,—-./0123456789: 34=>? character 
@ABCDEFGHIJKLMNOPORS TUVWXYZ" , 256,256) 53430 LDY #0 
SO PRINT" !""##2&' ()#4+,-. /0123456789: 3 <=>?7GABCD 3440 LDA (char),Y 
EFGHIJELMNOFORS TUVWXYZ" ar 
60 PROCprint ("THE QUICK BROWN FOX JUMPED OVER T 5450 ADC xcurs 
HE LAZY DOG‘S BACK.",700,600) sor position 
70 END 3460 BCC setcurs 
4000 DEFFROCprint (string#,xstart%,ystartzZ) 9470 LDA xcurs+l 
4005 VDUS 5480 CLC 
4010 ?xcurs=xstart% MOD 256: xcurs?i=xstartz% DIV 3496 ADC #1 


\add offset to char 


\add in carry if it exis 


\save pointer to current 


\get width of current ch 


Vand add it to the x cur 


256 3500 CMP #5 \check if high byte of x 
40270 Pycurs=ystart% MOD 256: ycurs?i=ystart% DIV cursor is 5 

256 S510 BNE setcurs \if not, can print chara 
4030 CALL code,string? cter 

4035 VDU4 53520 LDA #0 

4040 ENDFROC 5530 STA xcurs \otherwise reset =~ curso 
S000 DEFPROCsetup r 

50190 DIM @% 1000 S540 STA xcurs+l \to left of screen 

5020 code=0%+480: base=&75: FTbhase=@% MOD 256: bas 95990 LDA ycurs 
e?71=0% DIV 256 wue0 SEC 

5030 curmov=Q24+472: Peurmov=25: curmov?i=4: curmo 3470 SBC #40 Nand lower y cursor by 1 
V?6=23: curmov?7=224 line 


5040 xcurs=curmovt+2: ycurs=curmovt4 

5050 par=2600: block=%70: string=&%72: length=%&74: 
char=&77: temp=%79: . oswrch=&FFEE 

5040 FOR I=0 TO 3 STEP 3 

5070 F%4=code 


3580 STA ycurs 

2590 BCS setcurs 

3460090 DEC ycurs+i 

3610 .~setcurs LDY #0 
3620 .loop LDA curmov,Y 


5080 C 

2090 UPT i 

5100 LDA parti 

5110 STA block 

5120 LDA part+2 

5130 STA block+l 
5140 LDY #0 
5150 LDA (block),Y 
5160 STA string 
SLs ENT 

5180 LDA (block) ,Y 
5190 STA stringtl 
5200 INY 

5210 INY 

53220 -°LDA (block) ,Y 
5230 STA length 
5240 LDY #0 

5250 CPY length 
5260 BNE start 

5265S JMF end 

5270 .start LDA base 
5280 STA char 

5290 LDA baseti 
5300 STA char+l 
5310 LDA (string),yY 
oo20 SEC 

53350 SBC #32 
code 

5340 ASL A 

5350 ASL A 

5360 ASL A 

53370 BCC nocarry 
5380 INC charti 
is 
wor’ CLA. 


59 characters that I dealt with 
(ASCII codes 32 to 90; space 
to capital Z), while the next 
locations contain the string of 
bytes for the graphics cursor 
shift and start of the VDU 23 
command (ie 25, 4 (PLOT 
absolute), four bytes for the 
absolute X and Y coordinates 
to which the graphics cursor is 
to move, a 23 and a 224 (each 
character to be printed is re- 
defined as character 224, then 
printed)). So the machine code 
proper starts at Q% + 480 
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\get parameters 


\1ls string empty? 
\if not, start 
\else end 

\reset char,char+l 
\to initial values 


\get next character 
\subtract 32 from ASCII 


\and multiply by 8 


\add in carry if it exis 


(‘code’). 

Various page zero addresses 
are required: base, the actual 
address in memory of the start of 
the data bytes; par, block, string 
and length, to retrieve the 
parameters passed by the 
machine code CALL and find 
the string in memory; char, the 
address of the data correspond- 
ing to the current character, and 
temp, atemporary storage loca- 
tion for the pointer to the current 
string character. 

The machine code starts by 


r 
34630 JSR oswrch 
= command) 
54640 INY 
5650 CPY #8 
3650 ENE loop 
7670 LDV #1 


S680 .read LDA (char),Y 


3690 JSR oswrch 
aru INY 

2710 CPY #8 
5720 BNE read 
3730 LDA #06 
3740 JSR oswrch 
3750 LDA #224 
character 

3760 JSF oswrch 
cursor 

3770 LDY #06 
53780 LDA (char?),Y 


$790) CLE 

S800 ADC xcurs 
sor 

27810 STA xcurs 
ight 

9820 BCC nocarry2 
now it 


[830 INC xcurs+i 

3840 .mocarry2 LDY temp 
ing position 

5850 INY 

3850 CPY length 

3870 BE@ end 

538735 JMP start 

5880 .end RTS 


moving the parameters from 
the BASIC workspace into 
page zero memory and then 
using them to locate the start of 
the string and its length. A 
check is made to see whether 
the string is empty, and if so, a 
jump is made to the end of the 
routine. Otherwise, the two- 
byte pointer char is reset to the 
start of the data block in 
memory (ie to the value of 
base) and the character to be 
printed is loaded into the 
accumulator using post- 


\move the graphics curso 


\(and send start ot VDU2 


\read in definition byte 


\and send them out 


\finish with a zero 
\for all bottom rows 
Nand print the redefined 


Neat the current graphics 


\get width byte again 

Vand add it to the « cur 
\(no need to check for r 
\of screen, we already «& 


\must -f1t ind 
\get back pointer to str 


\move pointer up one 
\end of string? 

\end if yes 

\else loop back 
\back to BASIC 


indexed indirect addressing. 
The ASCII code has 32 sub- 
tracted from it (we will not be 
printing any control characters 
with this routine) and the result 
is multiplied by 8 (using three 
left shifts) to give the offset of 
the required eight data bytes 
into the data table. 

The largest number that can 
be in the accumulator is 58 
(ASCII 90, capital Z, since | 
have not redefined the lower 
case letters), | which is 
00111010 in binary. Multiply- 
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3890 Jj 

5900 NEXT 

3910 address=Q% 
53920 REPEAT 
=930 READ data 
7940 IF data< 
resst+i 

5950 UNTIL data=999 

3760 ENDFROC 

7032 DATAS2,0,0,0,0,0,0,0 

7033 DATAI6,128,128,128,128,128 
7034 DATAS2,160,160,0,0,9,0,0 
7O35 DATA4E,80,80,248,80,248,80 


“999 THEN Paddress=data: adar 


‘ess-sadd 


.0. 126 


,80 


7OZ6 DATA40,32,112,80,64, 224,464,240 
7037 DATAGS,144,176,32,94,64, 208,144 
7O38 DATA4B, 96,144, 144,96,152,144,120 


7039 DATA24, 64,192,128,0,0,0,0 


7O40 DATAS2, 96,192,128, 128,128,192,94 
7041 DATAS2, 192,96, 32, 22,32,96,192 
7042 DATA48,32,1468,112,32,112,1468,32 


7043 DATAS2,0,0,64,64,224,64, 44 
7044 DATAZ4,0,0,0,0,64,64,128 
7045 DATAS2,0,0,0,0,224,0.,0 
7046 DATA14,0,0,0,0,0,128,128 
7047 DATA40,16,48,32,96,64,192 


» 128 


7048 DATA32,64, 224,160, 160,160,224, b4 
7049 DATAS2,64,192,644, b4, 64,64,224 
7050 DATA40 196,144,16,32,64,128, 240 


7051 DATA49,946,144,16,32,16,144, 
7OS2 DATA40, 32,96, 96, 160,240,532 


9& 
gue 


7053 DATA40,240, 128,224, is, 16, 144, 9& 


7054 DATA40,112 192,192,240, 144, 


240, 96 


7055 DATA40,2 240,16,16,32,32,64,64 
7056 DATA40,96, 144. 144, 96,144,144,96 
7057 DATA40,96, 240,144,144,112 48.224 
7058 DATA14,0,0, 128, 128, o, 128, 128 


7059 DATA24,0,64,64,0,64,64, 128 


7060 DATA40, 15,32,64,128,464,32,16 


7061 DATA32,0,0,224,0,224,0,0 


7062 DATA40,128,64,32,16,32,64,128 
7063 DATAS2,64,160,32,96.64.0,64 

7064 DATA40,96,144,176,176,176,128,112 
7065 DATA32,64,224. 160,160, 224,160,160 


7066 DATA40,224, [yes 176,224,176, 


176,224 


7067 DATA48,112,216,128,128,128,214,112 


7068 DATA40, 224, 176,144,144,144, 
7069 DATA40, 240, 128,128,224,128, 


176,224 
128,240 


7070 
7071 
7072 
7O73 
7074 
7075 
707& 
7077 
7078 
7079 
7080 
7081 
7082 
7083 
7084 
7085 
7086 
7087 


DATA40,240,128,128,224, 128,128,128 
DATA4S, 112,216, 128,184,136,216,112 
DATA32,160,160,160,224.160.160.140 
DATA32, 224,64, 64,64,44,64,224 

DATA40, 112,32, 32,32, 160, 224,64 

DATA40, 144,176, 224, 192, 224,176,144 
DATAS2,128,128.128,128,128.128.224 
DATA4B, 216, 248, 168, 168, 136,136,136 


DATA40,144,144.208,240.176.144.144 


DATA40, 96, 240,144, 144,144,240,96 
DATA40, 224,176,176, 224, 128,128,128 
DATA40, 96,144, 144,144,176,160,112 
DATA40, 224,176,176, 224, 160,176,144 
DATA4B, 112,216,192, 112, 24,216,112 
DATA32,224,64,64,64,64,64,64 
DATA32, 150,160,160, 140,140,160, 224 
DATAS2,160,160,1460,160,160,224,44 
DATA4S, 136,136,136, 136,168, 248,80 


7088 DATAS2,160,160,64,464,64,160,140 
7089 DATAS2,160,1460,160,224,64,64,64 
7090 DATAS2,224,32,32,64, 128, 128,224 


7091 DATA999 


ing by 8 means that we only 
have to check, after the third 
shift, whether the carry bit has 
become set, and if so add it to 
the high byte of the two-byte 
address char. Then we add 
what's left in the accumulator 
to the low byte of char, again 
checking to see if there is a 
carry and incrementing the 
high byte if necessary. 

Now we are going to need to 
use the Y register for more post- 
indexed indirect addressing, 
so the current value of the 
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pointer to the position we have 
reached in the string is saved 
in location temp (a string can- 
not be longer than 256 charac- 
ters on the BBC, so a single 
byte suffices). Now that char, 
char + 1 contain the start in 
memory of the eight data bytes 
required, we can load the 
width of the current character 
into the accumulator (line 
5440) and add it to the current 
x postion of the graphics cur- 
sor. (Note that this addition is 
done in the accumulator the 


SOFTWARE : Readable text 


actual memory locations 
remain unaltered). The BBC 
graphics modes treat the 


screen as being 1280 points 
wide, which is &0500 in hex, so 
we can simply check whether 
the character will fit onto the 
current line by checking if the 
high byte of the x cursor has 
reached 5. If it has, lines 5520- 
9940 set the x cursor to zero, 
that is the extreme left-hand 
edge of the screen, and lines 
9990-5600 move the y cursor 
down the screen to the next 
line (graphics coordinates 
increase up the screen, so to 
move down we subtract). 

Notice that the value sub- 
tracted in line 5570 is larger 
than you might think correct. 
However, although the screen 
is actually 160 by 256 pixels, 
the graphics system treats the 
screen as 1024 by 1280, so all 
pixel offsets have to be mul- 
tiplied by 8 horizontally and 4 
vertically to achieve the cor- 
rect results on-screen. This is 
why the first number in each 
data statement (lines 7032- 
7090) is eight times the actual 
width: the remaining numbers 
in each line are the graphics 
data. 

Next the graphics cursor is 
set to the correct position to 
print the next character. Lines 
9620-5660 use the operating 
system call OSWRCH to send 
the sequence of eight bytes 
starting at curmov: 25,4 to indi- 
cate ‘absolute move’, the four 
bytes containing the x and y 
cursor positions, and a 23,224 
to begin the character redefini- 
tion. Then the remaining seven 
bytes of data for the character 
in question are sent out by 
lines 5680-5720, followed by a 
final zero in lines 5730-5740 
which reresents the bottom row 
of all new characters. Then the 
character 224 is printed. 

Finally lines 5770-5830 get 
the width of the current charac- 
ter again and add it to the x 
cursor, this time storing it back 
in the comect memory loca- 
tions so that the next letter will 
be printed in the right place. 
The pointer to the string is 
recalled from temp, incremen- 
ted, and if the end of the string 
hasn't been reached, the pro- 
gram loops back for the next 
character. 

The ‘leapfrogging’ jumps at 
the start and end of the program 
(5260-5255 and 5870-5875) 
are not very elegant but as the 
main body of the machine 
code is longer than 128 bytes 
when assembled, _ relative 


branching is unfortunately 
impossible. 

Once the code is 
assembled, the data is POKEd 
into the memory block of 472 
bytes left reserved for it. In fact 
the machine code itself only 
occupies 1'70 bytes, so the DIM 
statement in line 5010 could 
be altered to DIM 0% 642 to 


save memory. 


USING THE CODE 


A procedure called PROC- 
print is used to implement the 
new routine: the parameters to 
be passed are the string to be 
printed, and the x and y coor- 
dinates at which you want the 
first letter to appear. The pro- 
cedure links the text and 
graphics cursors with VDU 5, 
loads the x and y positions into 
the correct curmov locations as 
low-byte, high-byte pairs (lines 
4010-4020), then CALLs the 
machine code. When the 
string has been printed, the cur- 
sors are set to normal with a 
VDU 4. 

Note that this routine has 
certain limitations. Like the 
ordinary PRINT routine, it will 
not prevent words from break- 
ing at the end of a line 
(although letters will not be 
broken). If you want to rewrite 
the program for  word- 
wrapping, the techniques 
were covered in an article in 
the May issue of Computing 
Today. 

Because the text is being 
written at the graphics cursor, 
the graphics colour rules set by 
any previous GCOL statement 
will be obeyed. Text will be 
superimposed on anything 
currently at the printing loca- 
tion, so youll have to clear the 
required area first. The screen 
will not scroll if you try to write 
over the bottom: text will sim- 
ply disappear into the nether 
world of negative 
coordinates. 

For reasons of space I've 
only redefined letters up to Z 
but the adventurous among 
you could try redefining the 
lower-case letters too. To 
reduce the memory overhead, 
which is considerable, you 
could assemble the code and 
data, save it as a block of 
machine code and load it in as 
convenient for use by other 
programs, thus saving the 
space occupied by the assem- 
bler portion and the BASIC 
DATA statements: a 


considerable saving. = 
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MICRODRIVE FILE > 


LINE EDITOR 


W. F. Barnard 


With the eventual availability of the ZX Microdrives, who needs a 
mainframe? Well, maybe life isn’t quite that simple... 








TT" he ZX microdrives give 
the home micro user the 
ability to create his own 
files just like those on a main- 
frame computer. This program 
allows the user to create and 
edit these files. 

Some of the terms used will be 
familiar to ICL users. The only 
failing with the Microdrive 
facility is that a program will 
crash if it tries to read off the end 
of a file. This editor, when creat- 
ing a file will always put a final 
line in the file of four stars 
(% *& %& %&), enabling the editor 
to recognise the end of a file. 

The editor works by reading 
the file you wish to edit, the input 
file, one line atatime and allows 
you to modify each line, if 
required, before writing the line 
to an output file. If no input file is 
specified, then the editor auto- 
matically goes into input mode. 
Input mode allows you to create 
an output file containing as many 
lines as you wish. You terminate 
input mode by typing four stars 
as the final line in the file, ie 
Kk Kk. 

There is a facility to merge one 
other file(a MERGE file) with the 
current input file and another 
facility to allow editing instruc- 
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tions to be read from afile(a USE 
file) instead of from the key- 
board. 

Each line read from the input 
file is displayed on the screen in 
the form: 


Line number(Line length) __ the 
actual line. 
eg 1(9)__ Hello mum 


The command line that you type 
in must not contain leading or 
trailing spaces as the program is 
not designed to ignore these. The 
edit commands, which may be 
typed in upper or lower case 
are: 


@ C_ Close the current input 
file(may be the MERGE file) and 
reopen it at the beginning (eg 
ok 
@ E__Endthe edit by Transcrib- 
ing all the lines in the input file(s) 
to the output file and close them 
(eg E). 

@ |__ Insert the string between 
the delimiters in front of the 
current line or go into input 
mode (eg I/hello/will insert the 
line‘hello into the output file. IN 
will make the editor go into input 
mode, ie every line typed in will 
be written to the outputfile. Input 


mode is terminated with 
kkk). 

@® M__ Open a second file for 
editing. This file is closed by the 
X command (eg M3fred will 
open file ‘fred’ on Microdrive 3). 
@ P_ Move the Pointer over so 
many lines, ie read lines from the 
input file and do not write them to 
the output file. This in effect 
deletes lines. The command will 
stop itself if the * %& *% *& at the 
end ofthe inputfile is read(eg P4 
will skip over four lines. P/The/ 
will skip over lines until it finds a 
line beginning with the charac- 
ters‘ The’. PC/and/ will skip over 
lines until it finds a line contain- 
ing the characters ‘and’. 

@ © _ Ouit the edit This will 
close all the files and then erase 
the output file (eg Q). 

@ R _ Replace a ‘find’ string 
with a ‘replace’ string in the 
current line (eg R/the/there/ 
replaces the characters'‘the’ with 
the characters ‘there’ in the 
current line). 

@ T _ Transcribe (ie copy) so 
many lines from the input file to 
the output file. This command 
works with the same parameters 
as the P command explained 
above. Like the P command, the 
T command will stop if the file ter- 


minator **%&*%* is read from 
the input file (eg TS will copy 3 
lines of the inputfile to the output 
file. T/We/will copy lines up to 
the line beginning with the 
characters ‘We. TC/the/ will 
copy lines up to the line contain- 
ing the characters ‘the’. 

@ U_ Use afile for further edit- 
ing instructions. The USE file 
should contain the Zcommand to 
get further commands from the 
keyboard (eg U2fred will open 
the file‘fred’ on Microdrive2 and 
execute the editing commands 
contained in it). 

@ X_—_ Close the MERGE file 
(eg X). X will close the MERGE 
file, if one is open, and display 
the current line from the original 
input file.) 

@ Z__ Close the USE file if one is 
open and go back to the key- 
board for further editing com- 
mands (eg Z). 

@ H_ Help. Printalist of editing 
command instructions. 

@® CAT_ The keyword CAT (ie 
extended mode, symbol! shift 9) 
will show the catalogue of a Mic- 
rodrive (eg CAT2 will catalogue 
Microdrive 2). 

@ w — An emergency com- 
mand in case a USE file executes 


the * * * ¥& file terminator. 
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SOFTWARE : Microdrive file line editor 
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Example 2: EDITING THE NEW FILE 


RUN the editor program. Type ENTER to the first question. To the 
next two questions, type the filename and then the Microdrive 
numberof the file that you wish to create. Type each line followed 
each time by ENTER Type %& %& ¥% ¥ to end input mode and close 
your new file. You can check that your file has been created by 
using the MOVE command, ie to list your file called fred on Mic- 
rodrive | on the screen type: 











MOVE "m":1-"fred” TO #2 


The following test file, call it fred on Microdrive 1, may be created 
for editing later in Example 2: 






The first line of the file. 

The second line of the file. 

This id the thrid lin wiv erros init 
This is the last line. 

KKK 








Example 1: CREATING A NEW FILE 





RUN the editor program. Type the following answers to the first T2 { Lranscribe two lines} 
four questions, comments are in braces}}: P] ‘(Move the Pointer to the next line} 
Ml fed {Merge the file ‘fred’ on Microdrive 1, youcan 
fred {Lhe input file} merge the same file like this if you want} 
] (Its Microdrive number P2 {Move the Pointer over two lines} 
fred2 {The output file, you can’t use the name fred R/ This id// (Replace ‘This id’ with nothing, ie delete 
unless it's on another Microdrive} the text} 
] {The same Microdrive} Tl {Transcribe one line} 
X {Close the MERGE file} 
Type in the following commands: E \Copy the rest of the input file to the output file 


and close the files} 


Ti {lranscribe one line! 
P] {Move the Pointer to the next line} Type the following command: 
R/d/s/ {Replace ‘d’ with 's’ so that ‘id’ becomes 
‘is! MOVE "m":1:"fred2” TO #2 
R/ ri/ir/ {Replace ‘ri with ‘ir so ‘thrid’ becomes 
'third’} 
R/in/ine/ (Replace ‘in’ with ‘ine’ so ‘lin’ becomes The resulting output file should look like this: 
‘line’} 
R/ v/th/ (Replace ‘v’ with ‘th so ‘wiv’ becomes The first line of the file. 
with} This is the third line with no errors in it 
R/erros/no errors/ {As above} The first line of the file. 
R/init/in it/ The second line of the file. 
Tl {Transcribe one line} the thrid lin wiv erros init. 
ie {Close and reopen the input file at the This is the last line. 
beginning} kkk 


Example 3: THE USE FILE 


Suppose that you have a large file and you wish to correct one 
spelling mistake in line 134 andthenend the edit Create afile, as 
in Example 1, called ‘use’ containing the following edit 


s 


commands: 

pWeCe {Transcribe down to line 134} 

R/Fred/Freda/ {Correct the spelling mistake} 

3 {End the edit by transcribing the rest of your 
file to the new version} 

xKkkk {End input mode when creating ‘use’ 


RUN the editor again, asin Example2, and when you are asked for 
a command type: 


Uluse 
This will take the editing instructions from the file‘use’ on Microd- 


rive |. If you had a large file which takes a while to edit and 
transcribe all the lines, the USE file will allow you to edit the file = 
ate 
ne 





while you are having coffee or making a phone call. 


enna EEE 
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Listing 1 Complete program for Microdrive File Line Editor. 


BSD REM Hee EH 
es 
or) 


B40 PRINT #7;c4 


1D REM #HHHRS RRR 870 LET 1(2)=1(2)+41 

11 REM * Microdrive File Editor * 880 RETURN 

12 REM * W.F.Barnard B.Sc. * a993 

12> REM * April 1984 * 699 REM getline: 

14 REM 0 te ee a ae ae a aa a ae aa aH a a a ee DOD REM i a 9 a 0 a ae ae ae ae ae a a ae aa 
iS 901 REM * Get current line from input stream * 
270 GO SUB 1800: REM init SOD FEM 16 a a a ee ae a 8 a a I IE HEE EE TEE TEE HEHEHE 
25 GO SUB start 90> 

30 GO SUB openfiles 9203 INPUT #instrm; LINE ct 

35 IF inputonly THEN GO SUB input: GO TO 65 928 LET 1(index)=1 (index)+1 

40 931 

45 GO SUB getcommand 935 REM printc: 

59 GO SUB command 748 LET lenc=LEN ct 

55 IF NOT end THEN GO TO 45 958 FOKE 23692, 

68 960 PRINT ‘1 (index);"("slenc;")_"sct 

465 GO SUB closefiles 9723 RETURN 

70 GO SUB synopsis 998 

75 GO TO 9999 979 REM getcommand: 

99 LOD REM 09 ta te eae a 
100 REM ### 8H eRe 1901 REM * Get command from command stream * 
101 REM * Initialise * LOD REM ei 1 He ee ta a a a aE HEHE EE 
192 REM ### eRe HH ER EH 1283 

10> 1913 IF NOT use THEN BEEP bp1,bp2 

110 LET a#="": REM command string 1@15 INPUT #comstrm; (d#); LINE af 

115 LET c#="": REM current line 1920 LET lena=LEN at 

1270 LET ##="": REM find string 1925 IF lena=@ THEN GO TO 1018 

i125 LET r#="": REM replace string i336 Z 

130 LET if="": REM insert string 1240 FPOKE 23692 ,8 

135 LET t#="": LET s#="": REM temp stores for c$ 1045 PRINT ‘"“Command_"; at 

142 LET d#="Command_": REM command display string 1950 REM find command 

145 LET m#="": REM string delimiter 1055S FOR 1=1 TO nocoms - 
ise LET nocoms=14: REM no. commands 1@60 IF a#(1)=z$(i,1) OR a$(1)=z$(1,2) THEN LET command=VAL 2%(i,35 TO ): RETURN 
155 DIM z#(nocoms,6): REM commands + line no.s 

16@ RESTORE 1608 1096S NEXT 1 

175 FOR i=1 TO nocoms 1070 LET command=illegal 

180 READ 2#(1) 1875 RETURN 

195 NEXT 1 1198 


190 DATA "Cc1i300","Eei 400" 1199 REM illegal: 
191 DATA "111580" ,"Mm1 600" 12OO REM HHH HHH RRR H 


, 
, 
192 DATA "Pp1780" ,"Qq2880" 1201 REM #* Illegal command * 
, 
s 


193 DATA "Rr21900","Tt230a" 1202 REM ## Bee eee Ree REE EEE 
194 DATA “Uu2600" ,"Xx2700" 1203 


195 DATA "222880", "Hh3S100" 1218 POKE 23692,08 
196 DATA “ CAT CAT 2900" ,"*#3000" 1215 BEEP bpi+bpi,bp2 


200 DIM b#(4,11): REM microdrive no.s + filenames 122@ PRINT FLASH 1; ‘“ILLEGAL” 
205 DIM 1(3): REM linecounts for each file 1225 BEEP bpi+bp1,bp2 

206 LET index=1: REM index to linecounts,1=1/p file,2=merge file 12238 RETURN 

218 LET comstrm=@: REM command stream(@=kbd,6=USE file) papas 


~~ 


215 LET instrm=4: REM input file stream(S=merge file) 
220 LET start=500 

225 LET openfiles=708 
23@ LET input=800 

2I2 LET putline=850 

2725 LET getline=980 

237 LET printc=948 

248 LET getcommand=1908 
245 LET illegal=1200 
250 LET tooshort=1250 
255 LET delimerr=1280 
257 LET findf=19598 

268 LET closefiles=3400 
262 LET endfile=3468 
265 LET synopsis=3500 


1248 REM tooshort: 

1258 POKE 23692,8 

1268 PRINT INVERSE 1; ‘"“Command too short” 
1278 GO TO 1228 

1271 

1275 REM delimerr: 

1288 POKE 23692,8 

1298 PRINT INVERSE 1; "“Delimiters do not match" 
1295 GO TO 1228 

1298 

1299 

1300 REM ###48e eee eee 

1281 REM # C command # 

1302 REM ### eee eee eeee 

TQ> REM # Format C ### eee eee EHH REE EE 


266 LET bpi=.1: REM Beep parameters 1304 REM # Close current input file and #*# 
267 LET bp2=28 13@5 REM # reopen at beginning of file #*# 
278 LET TRUE=1: REM boolean values 1306 REM #8 RRR RHEE EHS R RHE R RHEE REESE 
275 LET FALSE=98 1387 

288 LET inputonly=FALSE 1318 CLOSE #instrm 


285 LET end=FALSE 
299 LET merge=FALSE 
308 LET use=FALSE 


1338 OPEN #instrm;"m";VAL bs (index ,1);b$(index,2 TO ) 
1348 LET 1 (index) =8 
1358 GO SUB getline 


318 LET found=FALSE 136@ RETURN 
4@@ RETURN 1399 
498 


1400 REM ## eee eeeeeeee 
1481 REM * E command * 
1402 REM ### #8 Hee eee Oe 
1483 REM * Format FE #### eee HEHEHE RHEE EEE 
1404 REM #* Transcribe rest of input file(s) * 


499 REM start: 

590 REM ###eee888 
5@1 REM #* Start *# 
502 REM ##*# #8088 


S@3 1405 REM #* to output file and signal end. . 

518 CLEAR #: CLS # 1486 REM #8 Fe HSER ESHER EERE EERHR eee 

515 FOR i=1 TO S: PRINT PAPER 1;" si, eee | 1407 

52@ PRINT INK 7; PAPER 2;AT 1,5;"Microdrive File Editor";AT 2,8;"W.F.Barnard B. 1418 IF c#="#eee" THEN GO TO 14498 

Sc.";AT 3,11; "April 1984" 1428 GO SUB putline 

521 1438 GO SUB getline 

525 PRINT ‘''"“What is the name of the file to be edited? (just press ENTER fori 1435 GO TO 1418 
nput mode only)" 1436 

527 BEEP bp1,bp2 14490 IF NOT merge THEN LET end=TRUE: RETURN 

53@ INPUT LINE a: LET lena=LEN as 1445 

535 IF lena>1@ THEN GO TO 525 145@ GO SUB 273@: REM X command 

548 IF lena=@ THEN LET inputonly=TRUE: GO TO 565 146@ GO TO 1418 

541 1499 

545 PRINT ‘“"“Which microdrive is it on (1-8)?" 1500 REM ####eeeeeeeee 

547 BEEP bpi,bp2 15@1 REM # I command * 

550 INPUT num 1502 REM ### eee HERE R ERE 

555 IF num<1 OR num>S THEN GO TO 545 1503 REM * Format I/string/ or IN #######ee ee ER EERE EEE 
56@ LET b#(1)=STR# numtas 1504 REM * Insert string in front of current line or #* 
561 1585 REM * go into input mode. * 
565 PRINT ‘“What is the name of your output file?" 15946 REM SHEER EEE REESE EEE REESE H EEE EE 
567 BEEP bp1,bp2 1507 

578 INPUT LINE a$: LET lena=LEN as 1S51Q>IF as="IN" OR a$="in" THEN LET s#=c$: GO SUB input: LET c$=s$: GO TO printc 
575 IF lena=@ OR lena>1@ THEN GO TO 565 1515 IF lena<S THEN GO TO tooshort 

576 


152@ IF lena=3 THEN LET i#=""; GO TO 1538 
580 PRINT ‘“Which microdrive is it on (1-8)?" 1525 LET is=a$(3 TO lena-1) 


S582 BEEP bpi,bp2 1530 IF a#(2)<>a#(lena) THEN GO TO delimerr 


585 INPUT num 1540 LET s#=c# 

598 IF num<i OR num>S THEN GO TO 588 1550 LET c8=is¢ 

591 1568 GO SUB putline 

S95 LET bs(2)=STRS numtas 1570 LET c#=st 

6@@ IF b#(1)=b#(2) THEN PRINT ‘"“Output file same as input file": GO TO S65 1580 RETURN 

685 PRINT is99 

618 RETURN 1500 REM ## eee HHH Ee 

698 1601 REM * M command * 

699 REM openfiles: 1602 REM ## eee RRR Ee 

JOO REM #HHHHHHH HEHEHE 146035 REM € Format M2Fred HEHEHE RHEE EERE 

781 REM * Open files * 1604 REM * Open file called fred on microdrive 2 * 

JO? REM HHH HEHE 1685 REM * for input. Use X command to close it. .* 

783 LODE REM Hee EEE EHR RHEE 

785 PRINT ‘““Opening File(s)" 1687 

71@ IF NOT inputonly THEN OPEN #instrm;"m";VAL b$(1,1);b$(1,2 TO ): GO SUB getl 161@ IF merge THEN PRINT ‘“Merge file already open": GO TO illegal 
ne 1615 IF lena=1 THEN GO TO illegal 

720 OPEN #73;"m"3VAL bS$(2,1);608(2,2 TO ) 1620 IF a#(2)<"@" OR a#(2)>"8" THEN PRINT ‘"Microdrive number missing": GO TO il 
738 RETURN legal 

798 16358 LET b#(3)=as(2 TO ) 

799 REM input: 1635 LET instrm=S5 

BQO REM ## een HER H 1640 OPEN #instrm;"m";VAL b$(3,1);b8(S5,2 TO ) 

801 REM * Input mode * 1645 LET index=3 

BO2 REM ## eH HR RRR 1646 LET 1(3)=0 

3802 1650 LET merge=TRUE 

805 FRINT ‘“Input Mode (Terminate with ####)"** 1660 LET t#=c%: REM save current line 

810 BEEP bpil,bp2: INPUT #comstrm; LINE c¥ 1670 GO SUB getline 

815 FOKE 23692,0: PRINT c# 1688 RETURN 

870 IF c#="#88#+" THEN RETURN 14699 

870 GO SUB putline 1700 REM ## eee ee 

8409 GG TO 812 1781 REM * F command * 

8438 L7DD  FREM 96 9 9 tee ae ee ae ae a Et ae a a a a ta EH EE EEE HE HE EE a 

349 KEM putline: 17@3 REM * Format P4 or FP/string/ or PC/string/ ###tHHeHHe 
SSO REM HHH HERR RRR RHR 1704 REM * Read & ignore so many lines from input stream * 


851 REM #* Put cS to output file * LFS REM ee a a ee I I FEE TE IE HIE EF EEE HE EE EE EEE EE EE EH 


SST OPA eT SEITEN PRES OHS TBE GTP OE SE NI BI ST AT STIS ASI NSS DLO ANAT LE TEL. EE TL TE EERE EE TE TE IT SLL LE I ETT CLI BS EAE IEG, 28S 
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SOFTWARE : Microdrive file line editor 


| ERNE SESS RPT A TON OR RSTO EO TEI DARI I EMITIIE MPRA BENDER IML BELOIT RELATE IEE EL LITRE OL SLID IEE CO LE IIRL LAP IEE DE FERRITE INE NG PV ERR I ee 


IF lena=1 THEN GO TO illegal 

IF a#(2)="C" OR a#(2)="c" THEN GO TO 1858 
IF a#(2)<"@8" OR a#(2)>"9" THEN GO TO 17998 
FOR i=1 TO VAL a#(2 TO ) 

IF c#="*#e#e" THEN GO TO endfile 

GO SUB getline 
NEXT 1 
RETURN 


REM find line beginning with f# 

IF lena<4 THEN GO TO tooshort 

LET ##=a%(S TO lena-1): LET lenf=LEN £# 
IF a#(2)<>as(lena) THEN GO TO delimerr 


IF c#="*#ee" THEN GO TO endfile 

GO SUB findf: IF found AND pos=1 THEN RETURN 
GO SUB getline 

GO TO 1818 


REM find line containing f% 

IF lena<S THEN GO TO tooshort 

LET *##=as(4 TO lena-1): LET lenf=LEN f$% 
IF a$(3)<-at(lena) THEN GO TO delimerr 


IF c$="s#e8" THEN GO TO endfile 
GO SUB findf 

IF found THEN RETURN 

GO SUB getline 

GO TO 1888 


REM find#: 

REM ## #8 eee eee eee eee 
REM # Find #% in cS *# 
REM ##e ee eee eeeeeeene 


LET found=FALSE 
FOR 1=1 TO lenc-lenf+1 


IF #$=c$(i TO itlenf-1) THEN LET pos=i: LET found=TRUE: RETURN 


NEXT i: LET pos=8 
RETURN 


REM ##eeeeeeeenae 
REM * Q@ command * 
REM ## eee eee eee ee 


REM * Format Q Se eee See eee HHeRHHeReHHE RHEE EHH EE 


REM # Quit edit, close files & erase output file *# 
REM SHAAHKHSKHKHKHHHAHAHHHHHHHHSHHSSHHHE RHR EEE 


GO SUB closefiles 

PRINT ‘“Erasing Output File” 
ERASE "m";VAL b#$(2,1)3;6%(2,2 TO ) 
LET end=TRUE 

GO TO 9999 


REM ### #8888 eee 
REM # R command * 
REM eee R ERE EERE RRR ERE 


REM * Format R/find/replace/ #####eeeeeeeneneee 
REM * Replace find string with replace string * 


REM # in current line. 
REM * Replace string may be blank. 


REM HHH HEHEHE SHE EEHEEEHEEHEE EERE REE 


IF c#=“#e#ee" THEN GO TO endfile 
IF lena<S THEN GO TO tooshort 
LET m#=a$(2) 
IF m#<>a#(lena) THEN GO TO delimerr 
LET a#=a#(3 TO lena-1): LET lena=LEN as 
REM find middle delimiter 
FOR 1=1 TO lena 
IF a#(i)=m% THEN GO TO 2188 
NEXT i 
GO TO delimerr 


LET #$=a$( TO 1): LET lenf=LEN f¢% 
LET r$=a$(i TO ): LET lenr=LEN rs 


IF lenf=1 THEN PRINT ‘“Empty find string": GO TO illegal 


LET #$=f$( TO lenf-1): LET lenf=LEN #$ 


IF lenr=1 THEN LET r#="": LET lenr=@: GO TO 2238 


LET r#=r$(2 TO ): LET lenr=LEN rs 
GO SUB findf 


IF NOT found THEN PRINT ‘"“String “;#%;" not found”: GO TO illegal 


IF lenft=lenc THEN LET c$=r$: GO TO printc 


IF pos=1 THEN LET cS=r$+c$(postlenf TO ): GO TO printc 


IF pos=lenc-lenf+i1 THEN LET c$=c$( TO pos-1)+rs$: 


LET c$=c$( TO pos-1)+r$+c$(post+lenf TO ) 
GO TO printe 


REM #8 #8 eee Re 
REM #* T command * 
FRE M9 0 a ee a a ae a a tte a aaa 


> REM * Format TS or T/string/ or TC/string/ # 


REM * Transcribe so many lines from input *# 
REM * stream to output stream * 
REM JiR - pee ee ee eee eee eee eee ee PP ee Se SS 


IF lena=1 THEN GO TO tooshort 

IF a#(2)="C" OR a¥#(2)="c" THEN GO TO 2489 
IF a#(2)<"@8" OR a¥(2)>"9" THEN GO TO 2400 
REM transcribe n lines 
FOR i=1 TO VAL a$(2 TO >) 

IF c#="*###8" THEN GO TO endfile 

GO SUB putline 

GO SUB getline 
NEXT 1 
RETURN 


REM transcribe up to line beginning with f$ 
IF lena<4 THEN GO TO tooshort 

LET ##=a$(S TO lena-i): LET lenf=LEN f¢ 

IF a$(2)<>a#(lena) THEN GO TO delimerr 


GO SUB findf: IF found AND pos=1 THEN RETURN 
IF c#="##e#8#" THEN GO TO endfile 

GO SUB putline 

GO SUB getline 

GO TO 2438 


REM transcribe up to line containing f* 
IF lena<S THEN GO TO tooshort 

LET f#=a$(4 TO lena-1): LET lenf=LEN f¢ 
IF a#(3)<>a#(lena) THEN GO TO delimerr 


IF c#="s#ee" THEN GO TO endfile 
GO SUB findf 

IF found THEN RETURN 

GO SUB putline 

GO SUB getline 

GO TO 2518 


REM ## eee RE 
REM #* U command * 
REM ### ee eR RHEE EEE 


REM * Format U2Fred eee HHH EHR E HHH EH HEHE EH 
REM * Use file called fred on microdrive 2 * 
REM # for further edit commands. This file * 
REM # should contain the Z command to come * 
REM * back to the keyboard. * 


REM FRR EEE REE 


GO TO printc 


2618 IF lena=1 THEN GO TO illegal 
2615 IF use THEN PRINT ‘"Already using USE file": GO TO illegal 
2620 IF a€(2)<"1" OR a$(2)>"8" THEN PRINT ‘"Missing microdrive number”: GO TO il 


legal 
2638 
2635 
2648 
2658 
2668 
2678 
2699 
2788 
2781 
2782 
2783 
2704 
2785 
2786 
2718 
27208 
2738 
2748 
2750 
2748 
27708 
2775 
2788 
2799 
2808 
2801 
2802 
2883 
2884 
2885 
2886 
2807 
2810 
2820 
28358 
2848 
2858 
2855 
2860 
28708 
2899 
2988 
2901 
2982 
298 
2904 
2985 
2926 
2718 
2920 
legal 


LET 
Loe 
LET 


b#(4)=at(2 TO ) 
d=" “ 
comstrm=6 


OPEN #comstrm;"m";VAL b#(4,1)3b#(4,2 TO ) 


CET 


use=TRUE 


RETURN 


REM 
REM 
REM 
REM 
REM 
REM 


iF 


eee eee resets 
* X command * 
SHRHHHHHH HEHE 
* Format xX HRRR REET 
* Close merge file * 
HERR EREHEEEEEE EH 


ena<>1 THEN GO TO illegal 


IF NOT merge THEN PRINT ‘“No merge file open": GO TO illegal 
CLOSE #instrm 


Let 
LET 
LET 
LET 
LET 
GO T 


REM 
REM 
REM 
REM 
REM 
REM 
REM 


1 a 
IF N 
CLOS 
LET 
LET 
LET 
LET 
RETU 


REM 
REM 
REM 
REM 
REM 
REM 


le 3 
IF a 


instrm=4 


c#=t$: REM retrieve current line 

mer ge=FALSE 

b#(3)=" és 

index=1 

O printc 

HME 

* Z command #* 

SHR REE 

* Format 7Z SHAE RAERRRRHHEHHR RRR RHE 


* Close USE file and go back to keyboard * 
* for editing commands. * 
JiR P- Rea eee eee eee eee eee e ee eee ee ee eS SS 


ena. >1 THEN GO TO illegal 

OT use THEN PRINT ‘"No USE file open": GO TO illegal 
E #comstrm 

comstrm=2 

b#(4)=" se 

d$="Command_" 

use=FALSE 

RN 


SHR HHHHH HERES 

* CAT command * 
SHH KE REE HERES 

* Format CAT mn ### tee HH Ee 
* Catalogue microdrive n * 
SHH HH HHH Ee 


ena. 72 THEN GO TO illegal 
B(2)6"1" OR a$(2)°"8" THEN PRINT "Invalid microdrive number": GO TO il 


2930 CAT VAL a#(2) 
294@ GO TO printc 


2999 
3089 
3081 


REM 
REM 


3002 >REM 


3005 
3O4 
3085 
SOV 
3087 
3089 
3018 
3819 
3020 
3838 
2099 
3188 
3101 
3102 
3183 
3104 
3185 
3186 
7118 
3128 
3125 
3138 
2148 
3158 
5168 
3178 
3180 
3198 
3199 
3208 
3205 
3219 


REM 
REM 
REM 
REM 


BEEP 
PRIN 
BEEP 
PRIN 
GO T 


REM 
REM 
REM 
REM 
REM 
REM 


IF 1 
CLS 
PRIN 
REST 
FOR 
READ 
PRIN 
NEXT 
PRIN 
GO T 


DATA 
DATA 
DATA 


SHR HHH HERES 
* * Command * 
HEHEHE RHEE 
* Format * (ARAL AA SARS SS SSS SEE EE ESE SE SS 
* Emergency command in case a USE file * 


* runs off the end & executes the #### * 
SEER EERE EEE EERE HE RE REE HERE REE EH 


bpl+bpi1,bp2 

T FLASH 1; °"End of USE file??”" 
bpl+bpi,bp2 

T FLASH 1;"Closing USE file if open'!'!" 
0 2828: REM Z command 


TFET EEE TE HE TE aE HE Hee 
* H command * 
RENEE 
* Format H HERR HH 
* Print Help page * 
HE TE TEE EE 


ena<>1 THEN GO TO illegal 


* 
T INVERSE 1;"List of commands." 
ORE 3130 
1=1 TO nocoms 
hs 
eT -te"geeti ghd s°="" hs 
2 
t 
O printc 
“Close current input file and reopen at beginning. (C)" 
“Transcribe rest of input file(s)to output file and end edit. (E£)”" 
“Insert a line in front of current line or go into input mode. 


(I/string/ or IN)" 


3215 DATA “Merge a 2nd input file (Mifile2)" 
3220 DATA “Move Pointer over so many lines of input file. (P4 or F/string/ or PC 
/string/)" r 
3225 DATA “Quit. Close files & erase outputfile. (Q)" 
32238 DATA “Replace find string with replacestring in current line. (R/f/r/)" 
3235 DATA “Transcribe so many lines from input file to output file (Té6 orT/str 
ing/ or TC/string/)" 
3248 DATA “Use a file for editing commands. (Uinewfile)" 
3245 DATA “Close merged file. (X)" 
258 DATA “Close USE file. (Z)" 
3255 DATA “Print this Help list (H)" 
3268 DATA “Catalogue a microdrive. ( CAT 2)" 
3265 DATA “Emergency command in case a USE file executes the ####* at the end o 
# the file." 
3398 
3399 REM closefiles: 
5400 REM Hee RHR HEHE 
3481 REM * Close files * 
T4022 REM HH eRe RRR RHEE 
3403 
3405 PRINT ‘“Closing Files” 
3418 IF merge THEN GO SUB 273@: REM X command 
3420 IF use THEN GO SUB 283@: REM Z command 
3425 IF NOT inputonly THEN CLOSE #instrm 
3430 PRINT #7; "##88":; REM file terminator 
3435 LET 1(2)=1(2)+1 
3448 CLOSE #7 
3450 RETURN 
3458 
3459 REM endfile: 
T4460 REM RHR R RE EEE 
3461 REM * Report end of i/p file * 
S46D REM HHH HHRH HERR RHEE RRR EMRE EH 
S465 
3470 PRINT ‘“"“You have reached the end of yourinput file!” 
3488 RETURN 
3499 
3500 REM #### #8 eH RH He 
3501 REM * Synopsis * 
S502 REM ## ete eee 
3583 
3518 PRINT ‘1(1)3" lines read from input file " 
3528 PRINT 1(2)3;" lines written to output file " 
3530 PRINT 1(3)3" lines read from merge file " 
3548 RETURN 
3999 
4000 ERASE “m";1; “Editor” 
4010 SAVE #"m"31; "Editor" LINE 18 
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ALL PRINTERS HAVE CENTRONIC PARALLEL INTERFACE UNLESS 
OTHERWISE STATED. ALL PRINTERS HAVE HI-RES, DOT 
ADDRESSABLE GRAPHIC MODE, PLEASE SEND SAE FOR 

FULL DETAILS 


EPSON 

Fx 80 160 CPS. 10° wide tric & pin teed 

FX 100 160 CPS. 15” wide. fric | apelans feed 
RXBOF’T 100 CPS 10° wide frict &tract feed 
RX8OT 100 CPS. 10” wide tractor feed 
LQO1500 200 CPS Letter quality nnter 

8143 RS 23 Interface for FX and RX printers 
8148 RS23?2 Interface with 2K buffer xon xoff 
Ribbon Cartridge for RX80 FX80 & MX80 
Ribbon Cartridge for FX100 & MxX100 


STAR 

Gemini 10X 120 CPS. 10° widetric &tractteed 
Gemini 15X 120 CPS. 15" wide frict & tract 
Delta 10 160 CPS 10° wide frict & tract feed 
Delta 15 160 CPS. 15" wide frict & tract teed 
Radix-10 200 CPS. NLO. 16K Bufter Par & 
serial interface downloadable characters 
incredible value at 

Radix-15 15” wide version of Radix-10 


SEIKOSHA 

GP100A 50 CPS. 10° wide tractor feed 56 + VAT 
GP250X 5O0CPS5. 10" wide trac teed ser & par 96 + VAT 
GP100VC 30CPS. 10” wide VIC 20 & 64 intert 74+ VAT 
GPSOOA 50 CPS. 10° wide. tractor feed £187 + VAT 
GP550A 50 CPS. 10° wide friction & tract 

correspondence quality 

GP100AS Serial interface ideal for Spectrum 

with microdrive 


SHINWA 
CP80 80 CPS 10° wide friction & tract teed 
Spare mbbon cartridge for CP80 


RITEMAN 
Compact 120 CPS. 80 col frict & tract feed 


CANON 

PW1080A 160 CPS. 10° wide 27 CPS NLO 
24 x 16 matrix 

PW1156A 160 CPS. 15" wide 27 CPS NLO 
24 x 16 matrix 


COLOUR PRINTERS 

Seikosha GP700A 7 colour 50 CPS printer 
Canon PJ1080A 7 colour 40 CPS ink jet printer 
CPP40 40 column 4 colour battery operated 


ALL OUR PRINTERS HAVE 1 YEAR WARRANTY 


BOLE TT OI! AE RE 


JUKI 6100 


20 CPS Bi-Directional Logic seeking 10 12 15 CP1 - 

Spacing 2K buffer bes selling Daisywhee ~ VAT - £305 
Singer sheet feeder unit 217 + VAT £249 
Tractor Unit o5.+\ £109 
RS 232 Intertace Pa £59 
Spare Darsywhee! * VAT £19 


BROTHER HRA-15 

13 CPS Bi-diectiona 
Keyboard Unit 

Single Sheet Feeder Ur 
Tractor Unit 


DAISY STEP 2000 
20 CPS Unidirectional 


SMITH CORONA TP1 
12 CPS 10.12 CP1 unidirect 


PROFESSIONAL 
MONITORS 


“SANYO 


*“MICROVITEC 
“FIDELITY 
“PHOENIX 


SANYO 

DM8112 12” Greer 
OM2112 12” Green screer 
CD3125 14” RGB Norm 
CD3117 14" RGB Med 
CD3115 14° RGB High Res 


MICORVITEC CUB 

1431 MS 14° RGB Normal 
1451 MS 14° RGB Mediur 
1441 MS 14 RGB Higt 


FIDELITY Colour Monit 
CM14 14” RGB RGBY | 


PHOENIX 
Phoenix High Res 
Phoenix High Res 





AKHTER INSTRUMENTS LTI TA 


LOMPUTER GROUP 


BBC MICROCOMPUTER SYSTEM 


WE ARE AN OFFICIAL BBC 
COMPUTER DISTRIBUTOR 


DEALER ENQUIRIES ARE WELCOMED 


Acorn Electron £199.:. 


WE SUPPLY FREE 30 HOUR BASIC BOOK AND A DUST COVER 
WITH EACH BBC COMPUTER 

BBC is the best microcomputer currently on the market 
32K RAM. 32 ROM, 8 modes of operation. full colour. full 
size keyboard internal expansions such as disc interface 
speech synthesizer Econet interface — im snort itis a 
personal computer capable of expanding into a smal! 
business system 

Micr nouter M R 


‘* 


APPROVED ECONET SERVICE CENTRE 
A LARGE RANGE OF SOFTWARE FOR BBC MICR\ 
CORNSOFT BBC SOFTWARE LONGMANS SOFTWARE 


PED ADDRESSED GNVELOPE 


TORCH Z80 2nd PROCESSOR 
For only £347 + VAT 


pplied with perfect writer (a p 


pelling CNecKiInNG > 
t Filer (A Database Prograr 


nemory (Almost 60K available t 


program 





100% BBC COMPATIBLE MITSUBISHI 
AND TEAC SLIMLINE DISK DRIVES 


YOUR CONTACTS AT AKHTER ARE 


DEALER/ BULK ENQUIRIES 

TELEPHONE ORDERS 

DEALER ORDERS 

BUSINESS SYSTEMS ENQUIRIES 

EXPORT ENQUIRIES 

ECONET SYSTEM TECHNICAL ENQUIRIES 
ACCOUNTS CARON ANDREWS 
DESPATCH PAUL SWIFT 
REPAIRS JOHN MAULE 


HAMAYUN MUGHAL 
PAULA HAYES 
TONY GLOVER 

DENNIS SUTCH 
MAHAMAD EDIB 
ALAN LAFFOLEY 





BUSINESS SYSTEMS 





APRICOT — SIRIUS — SANYO 
IBM — TEXAS — TORCH 


APRICOT ‘Portable Executive Computer’ 16 Bit Micro. 256K RAM. up to 
144 megabytes floppy disk storage 3 Sony disks. Portable brief case 
styling Modem with auto dialler (optional) hard disk optional Vast software 
library (compatible with Sirius 1 

Apricot with Single Drive and Motitor £1690 + VAT 
Apricot with Doubie Drive and Monitor and 

Free Printer or 2nd Monitor £1890 + VAT 


SANYO PROFESSIONAL COMPUTER 

16 Bit Micro 128K RAM expandable to 256K. Single or Double Disk Drive 
built in full colour graphics (640 x 200 pixels in 8 colours) |BM compatible 
Free software. Sanyo MBC 550 128K RAM single drive and free software 


Including Wordstar and Calcstar £749 + VAT 
Sanyo MBC555 128K double drive and tree software ir cluding Wordstar 
-alcstar. inforstar Datastar etc £999 + VAT 


SIRIUS 1 Sirius 1 Computer with 128K RAM and 1 2 megabyte Floppy 
disc sores including CP’M 86. MS DOS and 
a 


Microsoft sic £2195 + VAT 

Sirtus 1 Computer with 256K RAM and 2 4 megabyte Floppy disk storage 
Nog 5 tuple J y 

including C C/M 86 MS DOS & Microsoft Basi £2895 + VAT 

TORCH 


CF500 COMPUTER with colour monitor includes Twin 400K disks Torchnet 
Operating System free perfect software (perfect writer perfect speller 
pertect calc perfect filer) Torchmail Plus (Electronic Mail) Torch Mars 
Financial modelling with graphics) Torchtel (Viewdata Access System) 
Executive Aid (Menu System 

Date! 600 (Link to outside mainframe services ie 


Telecom Goid £2950 + VAT 


TEXAS INSTRUMENTS PROFESSIONAL COMPUTER 

Ti 502 Dual 320KB Drives 256K RAM Up to 10 megabyte on board storage 
possible TI speech command haraware option brings a new level of user 
friendliness to computing Allows voice operated keyboard control 
Optional) Price £2650 + VAT 


MAINTENANCE CONTRACTS ARE AVAILABLE. 


COMPLETE WORDPROCESSING 
SYSTEMS 
INCLUDING DAISYWHEEL PRINTER 
From £695 + VAT 





SYSTEM 1BBC Micro model B Wordwise. Phoenix monitor. Smith Corona 
TP1 Daisywhee!l Printer. Cassett Recorder + all the necessary cables and 


documentatior £696 + VAT = £799.25 


SYSTEM 2. BBC Micro mode! B + Disk Interface. Phoenix Monitor, 100K 
Single Disk Drive. Wordwise. Smith Corona Daisywhee! Printer 
+ all the necessary cables and documentatior 


Price only £895 + VAT = £1029.25 


SYSTEM 3. BBC Micro mode! B + Disk Interface. Phoenix Monitor, Dual 
Disk Drives 200K. Wordwise Smith Corona Daisywheel Printer + ail the 
necessary cabies and documentation 


Price £999 + VAT = £1148.865 


SYSTEM 4. BBC Micro mode! B - Disk Interface. Sanyo High-Res Green 
Monitor. Wordwise (or view), Juki 6100 Daisywheel Printer. Single 400K 
Disk Drive + al! the necessary cables and documentation 


£1049 + VAT = £1206.35 


SYSTEM 5. BBC Mod B Micro + Disk interface. Sanyo High Res Green 
Monitor. Wordwise (or view) Juki 6100 Daisywheel brinter Dual Disk 
Drive 800K « all the necessary cables and documentation 

Price £1195 + VAT = £1374.25 


SYSTEM 6. Sanyo 16 Bit. IMB pc Compatible Micro. 128K RAM. Single Disk 
Drive 160K. Wordstar. Calc Star. Sanyo High Res Green Monitor. Juki 6100 
Daisywheel Printer + all cable and documentation 

Price Only £1145 + VAT = £1316.75 


SYSTEM 7. Sanyo 16 Bit. IBM pc Compatible Micro 128K RAM. Dual Disk 
Drives 360K. Wordstar Caic Star. Maiimerge. infostar. Spelistar Datastar 
Sanyo High Res Green Monitor. Juki 6100 Daisywheel Printer + and al 
necessary cables and documentation 

Price £1395 + VAT = £1604.28 


SYSTEM 8. Al! the components of System 6 but with Sanyo High Res Colour 
Monitor and Wordstar with Colour Facilities 
Price £1,445 - VAT = £1661.75 


SYSTEM 9. Ali the components of System 7 but with Sanyo High Res Colour 
Monitor and Wordstar with Colour Facilities 
Price £1695 - VAT = €1949.25 


WE CAN ALSO SUPPLY PACKAGES WITH COMPONENTS OF YOUR 
OWN CHOICE. PLEASE PHONE ire) 412639 AND ASK FOR 
HAMAYUN MUGHAL FOR A PRICE. 


ORDERING INFORMATION: (Recess 


We accept official orders from UK Government and Education 
establishments Carriage is Free 
delivery is required please add £8 
orders on Barclay and Access Card please ring (0279) 443521 (10 lines) 
All cheques made payable to “AKH JMENTS 


ox only) for normal delivery If express 
+ VAT per parcel We accpettelepnone 


ER INST 


N.B. ALL VAT INCLUDED PRICES ARE THE CORRECT PRICES. 





EXCL. VAT PRICES HAVE BEEN ROUNDED UP TO NEAREST POUND. 


OPENING HOURS: MON-FRI 9am-6.30pm, SAT 10am-5pm 
We welcome callers, no parking problems. 


28/29 BURNT MILL 
HARLOW, ESSEX. CM20 2HU U.K. 
Tel. HARLOW (0279) 443521 Telex: 818894 AKHTER G 





FEATURE: Screen scroller 


SCREEN SCROLLER 


D. Garvin 


Graphics windows are useful features to enhance the output 
capabilities of your computer. If your micro doesn’t have them, fear not 
— this article will provide them for any Z80 based machine. 





the VDU screen both vertically and horizontally, 

accompanied by complete wrap-around in both cases. 
This article describes how this was achieved and developed 
further on a TRS 80 Model I with 48K of RAM (changes are given 
for those using 16K). The general principles however, can 
probably be applied to any micro that has a memory-mapped 
display. 

Before going into details it is worth mentioning the two features 

of the Model I which make screen manipulation relatively easy. 


R ecently, for display purposes I needed a routine to scroll 


@ The VDU contents have a permanent home but will 
travel The screen is made up of 16 lines, each line being 64 
one-byte characters in length. Thus, the entire display takes up 
1024 bytes of RAM. As shown in Fig 1, this chunk of bytes is 
permanently resident at addresses 15360 to 16383 in the memory 
map. Because the screen can be treated like any other RAM 
memory, it is possible to PEEK at a specific location and if 
necessary, POKE the value elsewhere in RAM including a new 
location on the screen. This method is fine if only a few bytes have 
to be relocated but shifting 1024 bytes around is very tedious. The 
solution is to use machine code to juggle the contents of the 
screen. 


. OOOOH } 
. 3000H } 


@ The keyboard can be 
scanned easily. The addresses 
14337 (3801H) to 14464 (3880H) 
are given over the keyboard. 
Figure | shows the arrangement 
for the eight rows of keys 
including row seven which has 
the arrow keys. As these 
particular keys are used 
extensively in the routines, it is 
important to understand what 
happens when they are pressed. 
The following small program 

should help. 

18 CLS 

20 REM KEYBOARD PEEKING 

38 AS=INKEYS 

49 IF AS="" THEN 39 

50 P=PEEK (144090) 

68 PRINT P; 

78 GOTO 30 
It the keys from ENTER to 
SPACEBAR (excluding BREAK) 
are pressed in tum, the values 
1,2,8,16,32,64 and 128 should 
be displayed. Each time a key 
is pressed in this row, which is 
mapped to the single byte 
address 14400, the bit pattem 
of that byte changes. These 
changes are used to decode 
which of the eight keys was 
pressed. The “resting state” of 
the byte is O0OO00000 but 
pressing UP ARROW, say, 


causes BIT 3 to become a ] 
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and the byte now equals decimal 8. Similarly, pressing SPACEBAR 
causes BIT’7 to become a 1 and the byte equals 128. So it is easy 
to tell which key has been pressed in this row by PEEKing at 
14400 immediately following the press (Line 50 above). 

But that's not the end of it. Shortly after the key has been 
released, the bit pattern of byte 14400 reverts back to OO000000 
again, ready for the next key press. To see this happen, remove 
lines 30 and 40 above and note that the cavalcade of zeros 
across the screen can only be interrupted by pressing one of the 
seven keys in the block represented by 14400. Other keys have 
no effect as they are mapped to other addresses. Because the 
whole process is so fast, a regular scan of the keyboard can be 
accomplished either by PEEKing (14400), or by performing a 
machine code equivalent LD A, (14400), searching all the time for 
an input from one of the ARROW keys. Pressing any one of the 
four arrow keys, can be used to signal that a screen movement is 
required. Depen oo on which key is detected, the screen can 
then be moved sideways or up and down. 


HOW IT WORKS 


In the Z80 Instruction Set there are two useful block transfer 
commands which can quickly copy the contents of one set 


ROM 


ae tte ke 
Gam rete eee 
PS ee DECODING 
CRED wend AS CEED 
a I at CED 


KEYBOARD 
INPUT AREA 


BHoeee CED 


GED ame Fv [eof co aD 
a ae 


Fig. 1 Part of the TRS-80 memory map showing keyboard and video addresses 





41 


FED 18€B 88568 
FED2 EDSBAAFF @@57@ ENDIT1 
FEDE 21BAFF 88588 
FEDS ED4BAEFF 88592 
FEDD EDBB 086 82 
FEDF 18Ai 006 18 





SAND ONTO NEXT LINE 
WINDOW BOTTOMLEFT ADDRES 
364 BYTE LINE BUFFER 

;LINE LENGTH TO SCROLL 
;COPY BUFFER TO BOTTOMLINE 
BACK TO KEYBOARD INPUT 


90620 Hecesobicasolooaosisiaidioaiciestoiocisisloiolole foloipiioaiioiriaiotoipiot otobok 


FEEL SAB2FF 8@552 DOWN 
FEEG FEO! 82649 
EEE 289A 80658 
FEES 2ARAFF 600668 
FEEB i1BAFF 60672 
FEEE EDABAEFF @@699 
FEF2 EDE@ Q86 92 
FEF4 ED4BB2FF Q0702 
FEFS Co - 007 18 
FEFS EDSBAAFF 08720 
FEFD 2RACFF 8688738 
FF@@ ED4BAEFF 88748 LOOP2 


Listing 1 

92180 ton OO ROD dodd on doiont tubo boi ideo di ioniiotooiok top 

@@11@ sLISTING 1 

90128 sWINDOW SCROLLING AND ROTATION ASSEMBLER VERSION 

Q@i38 ;TRS8@ MODEL I/II! 

98148 3(C) T.A. ITHELL 1984 

@@15@ ;FULL AND PARTIAL SCREEN SCROLLING SUPPORTED 

@@i62 ;UP/DOWN/RIGHT/LEFT ARROWS NOVE SCREEN 

@@17@ ;CLEAR KEY TO RETURN TO BASIC 

901 8; te dala eoicot ei top eotok toiploiaiotok stoop at oc ato a Fo 

8219 ; 
FE82 08282 ORG 65154 +48K SYSTEMS 

08218 ; 
FE82 3AGB3S 88228 SCAN -_ LD A, (14488) ;ARROW KEYS ROW ADDRESS 
FE8S FEB2 82238 CP 2 ;CLEAR KEY PRESSED? 
FE87 C8 08248 RET Z ;YES-SO BACK TO BASIC 
FESS FE@S 08258 CP 8 ;UP ARROW PRESSED? 
FE8A 2812 08268 JR 7, UP ;YES-GO PROCESS UP 
FESC FE18 88270 CP 16 ;DOWN ARROW PRESSED? 
FESE Z851 08288 JR 7, DOWN +YES-GO PROCESS DOWN 
FES@ FE2@ 88292 CP 32 ;LEFT ARROW PRESSED? 
FES2 CR2CFF 48S 88 JP 2,LEFT ;YES GO PROCESS LEFT 


FESS FE48 08318 


cP 64 RIGHT ARROW PRESSED? 


FFB4 EDBQ 08758 
FFE C! 0760 
FFQ7 CDSAFF 00772 
FFQR 2818 00788 
FFOC CS 807% 


FES7 CASAFF 08328 JP Z, RIGHT +YES-GO PROCESS RIGHT 
FESA 1965 33 JR SCAN ; IGNORE REST: BACK TO SCAN 
FESC 08 083.48 NOP 

FESD 98 0832 NOP 


BO360 eo aoprdone tolocEds toons fopioioiciok saaoa ok to Ok fF 


FESE SAB2FF 88378 UP LD A, (SCROLL) ;CHECK FOR SINGLE LINE 
FEAL FE@1 88388 cP 1 SCROLL WHICH IS ILLEGAL 
FEAS 28D0 88398 JR 1, SCAN sYES-SO IGNORE KEY 

FERS 2RARBFF 6 GB488 LD HL, (START1) sWINDOW TOP LEFT ADDRESS 
FERS 11BAFF 08418 LD DE, BUFFER 364 BYTE LINE BUFFER 
FEAB EDABAEFF 08428 LD BC, (LINLEN) LINE LENGTH TO SCROLL 
FEAF EDBQ 00438 LDIR COPY TOPLINE TO BUFFER 
FEB1 EDABB2FF 884.48 LD BC, (SCROLL) NUMBER OF SCROLL LINES 
FEBS CS 08458 PUSH = BC sSAVE A COPY OF COUNTER 


FEBG EDSBAQFF 88468 
FEBR 2AR4FF 688478 


LD DE, (START 1) 
LD HL, (STARTS) 


WINDOW TOP LEFT ADDRESS 
iWINDOW 2ND LINE ADDRESS 


FFQD ED4BBEFF 88802 
FFi1 ED42, 00810 
FFi3 EB 88828 
FFG ED42 20538 
FFI6 EB 88548 
FFi7 COSSFF 86 8BB58 
FFIA 184 82868 
FFIC EDSBAGFF @8572 ENDIT2 
FF2Q 21BAFF 80882 
FF23 EDABAEFF 88898 
FF27 EDR 8900 
FF29 C3S2FE 608918 


JR LOOPi 

LD DE, (BOTLNL) 
LD HL, BUFFER 
LD BC, (LINLEN) 
LDIR 

JR SCAN 

LD A, (SCROLL) 
CP 1 

JR 7, SCAN 

LD HL» (BOTLNI) 
LD DE, BUFFER 
LD BC, (LINLEN) 
LDIR 

LD BC; (SCROLL) 
PUSH = EE 

LD DE, (BOTLN1) 
LD HL, (BOTLNS) 
LD BC, (LINLEN) 
LDIR 

POP BC 

CALL ZERO 

JR Z,ENDIT2 
PUSH BC 

LD BC, (DIFFR1) 
SBC HL BC 

EX DE, HL 

SBC HL BC 

EX DE, HL 

CALL DELAY 

JR LOOP2 

LD DE, (START 1) 
LD HL, BUFFER 

L BC, (LINLEN) 
LDIR 

JP SCAN 


;CHECK FOR SINGLE LINE 
SCROLL WHICH IS ILLEGAL 
sYES-SO IGNORE KEY 

WINDOW BOTTOMLEFT ADDRESS 
64 BYTE LINE BUFFER 

LINE LENGTH TO SCROLL 
COPY BOTTOM LINE-)BUFFER 
NUMBER OF SCROLL LINES 
SAVE A COPY OF COUNTER 
WINDOW BOTTONLEFT ADDRESS 
WINDOW PENULTIMATE L INE 
LINE LENGTH TO SCROLL 
LINE N-i DOWN-) LINE N 
GET LINE COUNTER 

3G0 CHECK IF COUNTER= 
+YES-SO OFF TO TIDY UP 
sNO-SO SAVE LINE COUNTER 
CALCULATE ADDRESSES 

OF NEXT LINES 


SLOW THINGS DOWN 

AND ONTO NEXT LINE 
WINDOW TOP LEFT ADDRESS 
364 BYTE LINE BUFFER 
LINE LENGTH TO SCROLL 
sCOPY BUFFER TO TOP LINE 
BACK TD KEYBOARD INPUT 


90920 obi ololadsiolidotolinacidoictoigioiisk tatojgjdtololok jojolojoigi ok jakgobotaiai se gokoyk 


FERD EDABAEFF 98480 LOOP! LD © BC, (LINEN) LINE LENGTH TO SCROLL FF2C JAREFF 8930 LEFT LD — AS (LINLEN) sCHECK FOR SINGLE BYTE 

FEC1 EDR 8490 LDIR SLINE NHL UP -) LINE N FFOF FEB! e942 cP SSCROLL WHICH IS ILLEGAL 

FECS Ct aesea POP BL SGET LINE COUNTER FF31 CAS2FE 98952 Jp 2, SCAN sYES-S0 IGNORE KEY 

FEC4 CDSAFF 88510 CALL ZERO sG0 CHECK IF COUNTER=@ FF34 EDABB2°F @@962 LD BE, (SCROLL) ©» $NUMBER OF SCROLL LINES 

FEC7 2909 «©8528 JR Z,ENDITI sYES-SO OFF TO TIDY UP FF38 C5 0972 PUSH BC sSAVE A COPY OF COUNTER 

FECS CS 20538 PUSH BL :NO-SO SAVE LINE COUNTER FF39 2AA2FF gagoa LD HLA (START2) «BYTE 2 TOP LINE 

FECA CDSEFF 98548 CALL  SUMSI $00 CALCULATE NEXT LINES FFIC EDSBABFF 88990 LD —sDE, (STARTi) «= BYTE. 1 TOP LINE 

FECD CDSSFF 08552 CALL DELAY sSLOW THINGS DOWN FF4@ EDOBB@FF @1@@2 LOOPS LD BC, (SHLINE) | $SCROLL LINE LENGTH - 1 
FFA 1A a1010 L A, (DE) sSAVE FIRST BYTE IN LINE 


of addresses to another. 
Originally these commands 
(LDIR/LDDR) were used, but 
subsequently were dropped in 
favour of the code given in the 
Assembler Listing (Listing 1) 
and in another form in the Basic 
Listing (Listing 2). In the original 
only the whole screen could be 
scrolled. This present version 
allows any size of window to be 
specified, while retaining the 
whole screen option. By defining 
several sets of the same 
parameters in a three- 
dimensional array, multiple 
windows are also possible. 

Figure 2 shows what happens 
when the ARROW keys are 
pressed. In brief, sideways 
movement is achieved by 
transferring a single byte from 
one end of a line to the other 
and then repeating the process 
for however many lines have 
been requested. Vertical 
scrolling is done on a line by 
line basis. The top line becomes 
the bottom line or vice versa 
according to the scrolling 
direction specified, again 
repeating for the number of 
lines requested. 
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UP/DOWN ONE LINE 


TRS80 1 
SCREEN 2 
ROTATION 3 


>READY 16 


SCREEN 2 
ROTATION 3 


MOVE LINES 2-16 
INTO 1-15 


REPEAT 16 TIMES 


LEFT/RIGHT ONE BYTE 


SAVE A COPY 
OF BYTE O 
MOVE BYTES 1-63 


INTO POSITIONS 
0-62 


PUT BYTE 0 COPY 
INTO POSITION 63 


REPEAT 16 TIMES 


CONTINUOUS SCREEN MOVEMENT IS OBTAINED 
BY REPEATING THE PROCEDURES ABOVE 


Fig. 2 How screen rotation is achieved 
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FF45 EDBQ 01828 LDIR ;SHIFT LINE 1 BYTE LEFT 

FF47 12 012838 LD (DE),A ;FIRST BYTE-)LAST BYTE 

FFAS CDSSFF 81835 CALL LAY ;SLOW THINGS DOWN 

FF4B Ci 21242 POP BC iGET LINE COUNTER 

FF4C CDSAFF 81858 CALL ZERO ;G0 CHECK IF COUNTER=2 

FF4F CAS2FE 81860 JP 1, SCAN ;YES-SO BACK TO K/B INPUT 

FF92°C5 81278 PUSH BC ;NO-SO SAVE LINE COUNTER 

FFS3 CDSEFF 81882 CALL SUMS 1 1G0 CALCULATE NEXT LINES 

FFS6 13 21892 INC DE ;ADD 1 TO DE TOTAL 

FFS7 23 2118 INC HL ;ADD 1 TO HL TOTAL 

FFSS iS8€6 01120 JR LOOPS sAND ONTO NEXT LINE 
91130 ees boloicosolo esisioioaaoioioioiolooiiotolciiaiglok defolotoloifatojotaiototopioiieaiok 

FFSA SAREFF 01148 RIGHT LD A; (LINLEN) ;CHECK FOR SINGLE BYTE 

FFSD FEQ1 811538 CP 1 SSCROLL WHICH IS ILLEGAL 

FFSF CA82FE 1168 JP 2, SCAN +YES-SO IGNORE KEY 

FF62 ED4BB2FF 81178 LD BC, (SCROLL) sNUMBER OF SCROLL LINES 

FF6B CS 01188 PUSH BC ;SAVE A COPY OF COUNTER 

FFE7 2AABFF 6119 LD HL» (LNEND2) sBYTE 62 TOP LINE 

FFBA EDSBASFF 81288 LD DE, (LNEND1) +BYTE 63 TOP LINE 

FFRE EDABBOFF @121@ LOOPA = BC, (SHL INE) *SCROLL LINE LENGTH - 1 

FF72 1A 81220 LD A; (DE) ;SAVE LAST BYTE IN LINE 

FF73 EDB8 81238 LDDR sSHIFT LINE 1 BYTE RIGHT 

FF75 12 91248 LD (DE), A ;LAST BYTE-)FIRST BYTE 

FF76 CDSSFF 81245 CALL DELAY +SLOW THINGS DOWN 

FF79 Ci 01258 POP BC ;GET LINE COUNTER 

FF7A CDSAFF @1268 CALL ZERO ;G0 CHECK IF COUNTER=2 

FF7D CAS2FE 1278 JP 2, SCAN +YES~SO BACK TO K/B INPUT 

FF8@ C5 81288 PUSH BC ;NO-SO SAVE LINE COUNTER 

FFS1 ED4BBSFF 81298 LD BC, (DIFFR2) 

FF85 CDS2FF 81380 CALL SUMS2 7G0 CALCULATE NEXT LINES 

FF88 18E4 81328 JR LOOP4 ;AND ONTO NEXT LINE 
91330 yok gabe dol i toloid saoousooiols toloiaiulciofok oiotoloiuidak toiototoiok saioioksk 

FFSA QB @i348 ZERO —CDEC BC ;LINECDUNT-1 

FF8B 78 81338 LD AB +B=C=8? 

FFSC B1 81368 OR C 

FF8D C9 81378 RET ;BACK TO CALLING ROUTINE 

FFBE EDGBB4FF @138@ SUMS! LD BC, (DIFFR@) ;CALCULATE NEXT LINE 

FF92 ED4A 81398 SUMS2 ADC HL, BC ; ADDRESSES 

FF94 EB 81488 EX DE; HL 

FF9S ED4A 81412 ADC HL; BC 

FF97 EB 01428 EX DE» HL 

FF9S C9 81438 RET *BACK TO CALLING ROUTINE 

FFSS @1080@ 01448 DELAY LD BC 2 ;POKE DELAY HERE 

FFSC CD6@@@ = 81458 CALL 6@H >ROM DECREMENT COUNT 

FFSF C9 81468 RET ;BACK TO CALLING ROUTINE 


91.470 | ee AKIO OO edotid oosdotoloai tooo tego ifoloieisiokiatuntotolsi a tototok 


NUMBER OF LINES DOWN 


| START 1 |T1] START 2 [12 


NUMBER OF 
SCREEN BYTES 
FROM LEFT 


Fig. 3 Window parameters 


BS 
Bi 


WINDOW 
LIMITS 


Listings 1 and 2 have detailed comments about individual 
sections of the program. To work properly, the program requires 
that four parameters be defined. These numbers can describe 
either the whole screen or any regularly shaped part. Referring to 
Fig 3: 


LINES DOWN (LD) gives the position of the window top line 
BYTES LEFT (SB) gives the extreme left of the window 
LINE LENGTH (LL) gives the width of the window 

SCROLL LINES (SL) gives the depth of the window 


For example, the whole screen is defined by: 
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LLNEND 2 LNENDIL1 


FEATURE: Screen scroller 


8148 sBUFFERS FOR WINDOW PARAMETERS PASSED FROM BASIC 


81498 STARTi 
81580 START2 
81518 STARTS 
81522 LNEND! 
81538 LNEND2 
81548 BOTLNi 
81558 BOTLNS 
81568 LINLEN 
81578 SHLINE 
1588 SCROLL 
81598 DIFFRO 
01688 DIFFRi 
0161 DIFFR2 
81628 BUFFER 
G1638 

81648 

81652 POKEIT 


81668 


NUMBER OF 
LINES TO BE 
SCROLLED 


LINES DOWN 


BYTs LEFT 


LINE LENGTH 
SCROLL LINES 


To slow the scrolling enough to make the display readable or for 
slow-motion animation, a DELAY is also specified. The fastest 
speed needs a DELAY = 1. It is also worthwhile requesting 
65535, the slowest allowed, because the workings of the routine 
become almost painfully clear as successive bytes or lines are 


ponderously hauled around the screen. 


DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFS 
NOP 

NOP 

DEFW 


gee coegeCc es see e893 & 


END SCAN 





sWINDOW TOP LEFT ADDRESS 
sWINDOW TOP LEFT ADDRESS+! 
WINDOW TOPLEFT ADDRESS+54 
iWINDOW TOPRIGHT ADDRESS 
WINDOW TOPRIGHT ADDRESS-i 
WINDOW BOTTOMLEFT ADDRES 
WINDOW BOTTOMLEFT-64 
sLINE LENGTH TO SCROLL 
iLINE LENGTH-1 

NUMBER OF SCROLL LINES 
;CONSTANTS TO ADD/SUBTRACT 
;DEPENDING ON SCROLL 
;DIRECTION REQUIRED 

364 BYTE LINE BUFFER 


iVALUE=AUTOSCROLL DIRECTN 


TABLE 1 


Window parameter 
limits to the user input 


] - 65535 


Note: the program calcu- 
lates all the other values 
from these inputs. 


DE (Delay) 





] 
0 
m 4 
= 16 
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As shown in Table 1, there are some limitations on the minimum 
and maximum size of window allowed. The code in lines 350 to 
440 is designed to filter out the more esoteric requests, such as a 
window of O lines!! Error trapping, however, is not complete 
except for lines 350 to 440 which protect the machine code. 

Another important point is that columns one byte wide can 
only be scrolled horizontally. The comments in Listing 1 give the 
details of how this is achieved. Finally, only square or rectangular 
windows are supported. Ovals, diamonds, circles, keyholes and 
the like are definitely out! 

Once input, the values of these window parameters are stored 
in a three-dimensional array called window ready to be accessed 
when called. Additional information required by the machine 
code program is also calculated from the four inputted values and 
stored in the array. 

If the multiple window option is being used, the number and 
direction of moves required must also be supplied (see later). 
When a particular window is to be scrolled, the relevant 
parameters are passed from the array into a set of buffers. Finally, 
to move the screen, a USR call is executed and the display 
should shift as directed by the user. 

With a minimum number of changes, the program can be 
adapted for a variety of uses. Examples are given below. It is 
important to realise that much of the extra coding is for the 
purpose of demonstration only. Suggestions are made in the text 
whenever the modifications would justify a separate saving of 
the program. 

Essentially, the options are combinations of: 


@ Manual/Program control of scrolling 

@ Single or Multiple Window Scrolling 

@ Up/Down/Right/Left Scrolling 

@ Defining any size of window (2-1024 bytes) 


ENTERING AND USING THE PROGRAM 


Like many programs, once the general ideas had been worked 
out, it became clear that with a few changes several useful spin- 
offs could be produced. Listing 2 contains the core program 
which will be modified to produce various optional extras. 

The listings are for a 48K machine, the few changes required 
for 16K implementation are given in Listing 3. These changes are 
required because the machine code is not relocatable and the 
buffer addresses will also be different. A list of important 
addresses is given in Table 2. 

The Assembler Listing 1] is to allow easy relocation by typing 
in the source code and specifying another origin. However, 
Listing 2 contains all the code in a form which can be poked 
into memory. If you do decide to relocate the code then 
allow for the following: 


@ BUFFER at the end of the code is 64 bytes long and 
allowances for this and the other buffers must be made when 
defining a new origin. 

@ Data will be poked into these buffers from BASIC. Relocating 
the code will change the buffer addresses and you must alter the 
BASIC Listings accordingly. 


Begin by setting MEM SIZE to 65150 to protect the machine code, 
then type in and save a copy of Fig 3. After initialisation, the 
prompts below will appear. The simplest window to specify is 

full screen. Enter the values given. 


NUMBER OF WINDOWS REQUIRED? 1 (Enter) 

(Keep it simple!) 

PARAMETERS FOR WINDOW 1 

NUMBER OF LINES DOWN FROM TOP (1-16 LINES) 1 (Enter) 
(VDU Line 1 = Top line) 

NUMBER OF BYTES ACROSS SCREEN FROM LEFT MARGIN (9-63 
BYTES) ? 
LENGTH OF LINE TO BE SCROLLED (1-64 BYTES)? 64 (Enter) 
(64 bytes = 1 line) 

NUMBER OF LINES TO SCROLL (1-16 LINES)? 16 (Enter) 
(16 = whole screen) 

ROTATION DELAY (1-65535)? 1 (Enter) 

(Very fast!) 


If this program is eventually used as a subroutine in larger 


Listing 2 


18 REM LISTING 2 

28 REM WINDOW SCROLLING AND ROTATION BASIC VERSION 

30 REM 48K TRS8Q MODEL I/II] (C) TA. ITHELL 1984 

4Q REN POKING MACHINE CODE INTO MEMORY FROM 65154 

5@ DEF INTA-Z:CLEAR2@@:CLS:PRINT"POKING DATA INTO MEMORY" 

6@ FORT=382TOS7STEP-1: READN:POKE-T, N=NEXT 

78 DATASS, 64,56, 254; 2, 208, 254, § 40, 18, 254, 16, 48, 81 

88 DATA2ZS4, 32; 282,44, 255, 254, 64, 202; 98, 255, 24, 238, 8 

38 DATAG, 58, 178, 255, 254, 1, 48, 221 

108 DATAG2, 168; 255, 17, 186, 255; 237» 75) 174, 255; 237 

118 DATAI76, 237, 75, 178; 255; 197,237; 91, 168, 255, 42, 164, 295; 237) 75 
120 DATA 74, 255, 237, 176s 193, 205; 138, 255, 4, 9, 197, 205, 142, 255, 285 
138 DATAISS, 255, 24, 235; 237, 91, 178) 255, 33; 186) 255: 257) 75) 174) 255 
148 DATAZ37, 176; 24, 161; 58; 178; 250» 254, 1, 4Q, 154, 42, 178, éJJ1 17 

158 DATALS6; 255, 237, 75, 174, 255, 237 

168 DATAL76, 237, 75, 178; 255; 197,237; 91, 178) 255) 42) 172; 255s 237) 75 
178 DATAL74, 255, 237, 176s 193, 285, 138, 255, 4, 16, 197, 237, 75, 182) 255 
188 DATAZ37, 66, 235, 237,66, 235; 285s 153, 255, 24, 228, 237, 91, 168; 255 
198 DATAS3, 186, 255, 237; 75: 174s 255 237; 176) 195) 130) 254, 58; 174 

200 DATAZSS, 254, 1, 202) 158, 254, 237, 75 178 

218 DATAZSS; 197, 42, 162, 255; 237,91, 168, 255, 237) 75, 176) 255, 26) 237 
228 DATAL76, 18; 205, 153, 255; 193, 205; 138, 255, 282) 138, 254, 197, 285; 142, 255, 195 55 
238 DATAZ4, 2350, 58, 174, 255, 254, 1, 282) 138, 254, 237, 75 

248 DATAL 78, 255, 197, 42, 168; 255; 237, 91 

258 DAFALG6; 295, 237) 75: 176, 255, 26, 237; 184, 18; 285, 153, 255, 193, 285, 158, 255, 282 
268 DATAL3@; 254, 197; 237, 75, 184, 255, 205, 146, 255, 24 

270 DATAZ28, 11, 120, 177, 201,237, 75, 188) 255, 237, 74) 235s 237; 74, 235 
288 DATAZOi, 1,0, 8, 205, 36, @ 281 

298 REM INPUT NUMBER/SIZE OF WINDOWS REQUIRED 


382 CS 

3id INPUT"NUMBER OF WINDOWS REQUIRED" sNw 

328 DIMW! (NW, 58, 2) 

308 FORR=170NW 

34 PRINT" PARAMETERS FOR WINDOW'SR 

358 INSUT"NUMBER OF LINES DOWN FROM TOP (1-16 LINES) "32D 

358 TFLD(LORLD) i6 THENSSO 

378 INPUT"NUMBER OF BYTES ACROSS SCREEN FROM LEFT MARGIN (8-63 BYTES)"sSB 
388 IFSB(Q0RSB) 63 THENS7@ 

39@ INPUT"LENGTH OF LINE TO BE SCROLLED (1-64 BYTES) "Sil 

482 IFU¢ LORLL) 640RLL+SB) G4THENTI@ 

4:8 INPUT"NUMBER OF LINES TO SCROLL (1-16 LINES) "3S: 

428 IFSLC(ORSL=) i JORSL4LD) L7THENG 18 

438 INPUT"RCTATION DELAY (1-65535)"sDE 

442 TFDE (1 ORDE) SSSSST HENS 32 

458 CS 

GS@ f=: 

478 FEY FAR EACH WINDOW CALCULATE REST OF WINDOW PARAMETERS 
498 RES FAD INPUTS OND THEN LOAD THEM INTO ARRAY Wi 

852 7121935246 (LD-1)#66)+582M=INT (71/256) sL=Ti-(M*256) :GOSUB719 
SOQ T2=TL+1SM=INT (72/256) sL=T2-(M#256) :G05UB718 

SIQ@ T5=71 +64 SME INT (75/296 | 2L=T3-(N*256) 560508718 

528 LisTi+(Lu-£)s M=INT(L1/296) sL=L1-(M256) : GOSUB712 

SoG LZ=T1+(LL-2) SM=INT (L2/296) ¢L=L2-C84255) :60SU8718 

Sad §2=15558+! i (LD+SL)-2) #64)+SB: M=INT (81/256) SL=Bi-(Me256) s GOSUB7 12 
£98 85=B1-64 SM INT(B2/255 ) SL=B3-(M*256) : GOSUB718 


50 wit, 25, O32 

5:3 Wie 17,2284 

S20 wit 19,3)=SL 

638 WIC, 21,8)=D8 

658 ICR, 25, 8)=D2 

S60 DM=INT(DE/256) :DL=DE- (DM*256) 

678 WIC 27, Q=DL 

698 WICR, 28, Q=D" 

59@ NEXTR 

728@ GOTO728 

718 WICR, CB=LSWICR, C+1, 8) =M2 C=0+22 RETURN 

720 REM DEMONSTRATION SCREEN LOAD AND PROGRAM RUN 
738 CLS:SW=i:REM SW=1 MEANS WINDOW : 

748 REM GENERATE A SCREENFUL OF GARBAGE 

738 FORF=QTOSS:FF=RND (159) +32:F$=FS+CHRS (FF) SNEXT 
76@ FORT=QTOSSESTEP4S: PRINTT, F$s sNEXT 

778 PRINTG14Q, “#e* SCROLLING-PRESS UP/DOWN/RIGHT/LEFT ARROWS sex"; 
730 PRINT@2B4, “#** TO RETURN-PRESS CLEAR KEY tore"; 
73 REM PUT THE PARAMETERS FOR WINDOW 1 INTO BUFFERS 
SOQ ME=96 :FORC=17026: POKE-ME, WI (SW, C, 2): ME=ME-1 NEXT 
S18 POKE-182, WI (SW, 27, @) : POKE-181, WI (SW, 28, @) 

92@ REM CALL MACHINE CODE 

330 POKEL6526, 132: POKE1E527, 254: 2=USR(Q) 

848 CLUS:PRINT"DGNE" 


projects, it is important that you do not exceed the parameter 
limits given in each prompt above ...otherwise the dreaded MEM 
SIZE? will almost certainly materialise. 

After a short wait while the program generates some garbage 
strings to fill the screen, you will be prompted to press the 
ARROW keys or CLEAR. The screen should move in the direction 
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FEATURE: Screen scroller 
OOOO ee 


of the ARROW key pressed. The blank line at the bottom of the 
display gives a point of reference. Once you are happy that the 
program is working satisfactorily, press CLEAR to return BASIC 


Listing 3 


68 FORT=32385703257; :READNS OOKET, NSNEYT 





72 DATASS, 64, 56. 254, 2, 282, 254, 8, 42, 18, 254, ! i 
32 DATA2S4s S25 282, 44s 127, 256, 64, 202,28) 127.2 reads 
38 DATAQ, 58, i783, 127, 254, 1,42, 221 


*-- - +? & ¥i 
_- 
Sa ie 1: 24 : a | ri ‘ 
112 DATA: 75, Z5ls 75; 78. i27s 137, 237,31; {62, 27, Pa 


— ~ = —— 
228 DATAL 74: 127) 2375 176s 193, 285, 238: 227, 2B, 9, 797. 285, 162 12 


I 
{70 MWATASET 259 54 976 5797 at 19M «49 77 GO ene 7 
132 DATA2S3, 127, 26, 235) 237) 91,178,127; 3%! DO: icts cafe fe ’ 
—_— 


—-— 
168 DATAZI7, 176, 24, 182,58, 178, 127, 254, 1, 42, 15h, 2, 
152 DATALS61127, 237, 75, 174, 127,237 


afte 
—— 


168 DATA! 76s 237,75, 178) 127, 197,237,925 :7@, 127,42, 172, 12 


178 DATAL 74, 127, 2375 175) £555 285, 138; 127, 42, 26, 
{80 DATA237, 65: 235, 237 

{90 DATASS: 196:.127) 237, 755 i741 127) 2 

202 DATAL27, 254s £5202, 158) 226) 237; 75 ; 

210 DATAL27, 197, 62) 162; 127, 237,91, 160, 12 

228 DATAL 76: is) ces, 2351127) 1301 Zi sti 

PA DATAZ4, 250) 58s 174) 127) wd, !, 222; 138) 126) 237; 
2h DATAL78, 127) 197) 42s 1 2 


<=, 5 7aF 402 5 P a4 o> Ag > * 
252 DATALESE, 127, Zo? 1S 176, i27; 26; ray F 184, 36; 205: bdoricts iSor2b. Loe 


—_—_-_- 
262 DATA! 38; 2b 197; ray B 75, 184, 127; ~4D1 127, fy 
—_—_ 


278 DATAZI&: £1,120) £77) 282,237, 75: 188) 127, 237, 
288 DATAZO:, i,2,8, 205; 20: 


ener : To 7a a 
$82 ME=326723ORC=1 7026 :POKEME, WI (SW. CQ) SME=ME4S SNEYT 


S18 POKES 2666. W! (Sw 27, B) s POXE32567. Wr (Sw, 28, 2) 
828 RE™ CALL MACHINE CODE 
ov; 
wb 


Aur res. > um >, “fet 1. 
cou POKE: 6526, 138 :POXE 16527, 126: 7=1 





and then reRUN using different parameters. Table 3 gives a list of 
suggestions you might like to try to get the feel of the program. For 
the moment though, always answer the NUMBER OF WINDOWS 


prompt with 1. 
This simple rotation and screen shifting is extremely useful 
when creating animation sequences. A smal] movement of the 


whole screen or part of it, one way or the other can save hours of 


redrawing. 


@ Modification 1 In its present form, the only way of getting out 
} y Gg J 


of the machine code loop is to press CLEAR (or if really lost the 


RESET button). Obviously it would be more flexible if the program 


could return to BASIC of its own accord. Listing 4 has the 
required changes, the new values are underlined. They simply 


replace JumP to keyboard SCAN with RETum to BASIC 


instructions, BREAK will work normally again. Change the BASIC 
lines as shown in Listing 4 and RUN this new version. Again, use 


Table 3 for screen parameter examples. Although nothing 


dramatically different happens, after each ARROW key press the 
routine goes back to the BASIC driver program. This means that 
some processing can be done between successive screen moves. 


@ Modification 2 The usual way to move things about is 
to have the small ones move over big ones. Cars move over 


TABLE 2 


Variable Name 48K 16K 

Assembler Basic Hex Dec LSB MSB Hex LSB MSB 
DELAY DE FFOA 65434 -102 -10] 7FOA 32666 32667 
START ] Tl FFAO 65440 - 96 - 95 7FAO 32672 32673 
START 2 ig FFA2 65442 - 94 - 93 7FA2 32674 32675 
START 3 T3 FFA4 65444 - 92 - 9] 7FA4 32676 32677 
LNEND1 | FFA6 65446 - 90 - 89 7FA6 32678 32679 
LNEND2 L2 FFAS 65448 - 88 - 87 7FA8 32680 3268 1 
BOTLN] Bl FFAA 65450 - 86 - 85 7FAA 32682 32683 
BOTLN3 B3 FFAC 65452 - 84 - 83 7FAC 32684 32685 
LINLEN ik FFAE 65454 - 82 - 9 7FAE 32686 2687 
SHLINE SH FFBO 65456 - 80 - 79 7FBO 32688 32689 
SCROLL SL FFB2 65458 - 78 - 7] 7FB2 32690 32691 
DIFFRO DO FFB4 65460 - 16 - 75 7FB4 32692 32693 
DIFFR] D1 FFB6 65462 - 74 - 73 7FB6 32694 32695 
DIFFR2 D2 FFB8 65464 - 72 - 7) 7FB8 32696 32697 
BUFFER FFBA 65466 - 70 - 69 7FBA 32698 32699 
POKEIT FFFC 65532 4 3 TEEGC 32764 32765 
MEM SIZE 65150 32380 


All have a DELAY of 500 
Use ARROW keys to see scrolling TABLE 3 


LINES DOWN BYTES LEFT LINE LENGTH SCROLL LINE 
(LD) (SB) (LL) (SL) 


EFFECT ON SCREEN 
PART SCROLLLING 


64 16 
xe 16 
64 8 

Z 16 
64 

2 
64 
ai 

te) 
10 
10 
10 
iF: 
64 
32 
64 


Whole screen 

Left half 

Lower half 
Left columns 
Top lines 
Right columns 
Bottom lines 
Bottom right 
Top left 
Top right 
Bottom left 
Bottom right 
Screen centre 
Line sideways 
Line 14 left 
Centre line 
Left column 
Right column 
Centre column 


SN 
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usenet 


— a 


Qua? 


] 
9 
] 
] 
] 
3 
9 
] 
] 
4 
4 
5 
] 
4 
8 
] 
] 
] 


DDO KKH OWWWWONDL 





eee 


roads, ships over oceans, pixels over screens. Sometimes this is 
reversed, paper moves over a typewriter head. Add the changes 
in Listing 5 and set the screen parameters for full scrolling and 
fastest speed. The key prompts will appear with a block — 
CHR$(191)-just below. Pressing the ARROWS now should cause 
broad horizontal and narrow vertical bands to be traced as the 
screen passes over the block What's happening? 

After each key press, the routine returns to BASIC fleetingly 
and executes line 825 which prints the block at the same 
position each time. But because the screen has moved on a 
byte since the last time, another block appears adjacent to 
the last one. Hence the traces. This is like having a 
permanently fixed pencil and mobile paper. 

Incidentally, you may have noticed that the ARROW keys 
appear to have been reversed. This isn't really the case, 
remember that the ARROWS control the screen movement not the 
block which is stationary. 

Other characters can be used instead of 191.A random 
character generator would be: 


825 RR=RND(64)+127: PRINT@549,CHRS (RR); 


Commands like SET and POKE can also be used. Finally, 

notice that despite the retum to BASIC after each key press, the 
screen still moves at a very acceptable speed. 

@ Modification 3 The next stage is to take screen control out of 
the user's hands and give it to the computer. When the ARROW 
keys are pressed, values of 8,16,32 and 64 are generated as 
mentioned earlier. Whenever the machine code program 





































18 REN LISTING 2 MODIFICATION 1 

15 REN LINES 78, 88, 98, 148, 190, 288, 220, 238, 258; 788, 848 CHANGED 

' 

i 

78 DATASB, 64, 56,0, @,@, 254, 8 48, 18, 254, 16, 48, 81 

88 DATAZ54, 32; 282,44, 255; 254, 64, 282; 98, 255, 281, 8, B 

98 DATA@, 58, 178,255, 254, 1,288, 8 

188 DATAG2, 168; 255; 17, 186 255: 237, 75) 174s 295; 237 

118 DATAL76, 237,75, 178 255; 197, 237) 91, 168, 255, 42, 164, 255, 257; 75 

128 DATAL 74, 255, 237; 176; 193, 285, 138, 255; 48, 9, 197, 285, 142, 255; 285 

138 DATALS3, 255; 24, 235; 237, 91, 178» 255; 33, 186) 255; 237) 75s 174s 255 

148 DATR237, 176, 281, 58, 178; 255, 254, 1, 208, 8, 42, 178, 255; 17 

158 DATAL86, 255, 237) 75: 174) 255, 237 

168 DATAL76, 237; 75, 178; 255; 197, 237; 91, 178) 255, 42, 172; 255; 237 75 

178 DATAL74, 255; 237, 176» 193, 285; 138) 255, 48, 16) 197, 237, 79; 182, 255 

188 DATA2Z37; 66; 235; 237, 66, 235; 285» 153) 255, 24s 228) 257, 91, 168 255 

198 DATASS, 186) 255, 237; 75) 174) 255» 237, 176» 281, 8, 8, 58, 174 

208 DATA2SS; 254, 1, 288, 8, 8, 257 75, 178 

218 DATAZSS: 197,42; 162; 255; 237,91, 168 255) 237; 75) 176» 255; 26) 237 

228 DATAL76s 18 285; 153, 255, 193, 285; 138, 255, 288, @, @, 197; 285; 142; 255, 19; 35 
238 DATA24, 238, 58, 174, 255, 254, 1) 208; @ @, 257575 

248 DATAL78, 255, 197, 42, 168, 255; 237; 91 

258 DATALEE, 255, 237; 75, 176, 255: 26» 237, 184, 18, 285; 153, 255, 193, 285; 138; 255, 288 
268 DATAQ, @ 197, 237, 75; 184, 255, 285, 146; 255; 26 

278 DATAZ28, 11, 128; 177,281) 237) 75s 188) 255) 257s 741 235; 2357; 74s 235 

288 DATAZG1, 1,8, 8,285, 96, 8, 281 





88 PRINTG2B4, "*#* TO RETURN-PRESS BREAK KEY #e8"; 


{ 
848 GOTOB3@ 





Listing 4 






1@ REM LISTING 2 MODIFICATION 2 
15 REM LINES 750, 768 DELETED: INSERT 825:CHANGE 848 






REM GENERATE A SCREENFUL OF GARBAGE 
PRINT@14@, "#** SCROLL ING-PRESS UP/DOWN/RIGHT/LEFT ARROWS ++"; 
PRINTG2B4, "##* TO RETURN-PRESS BREAK KEY sxe"; 





828 REM CALL MACHINE CODE 
PRINT @568, CHRS(191) 5 
838 POKE16526, 138: POKE16527, 254:2=USR(8) 
848 GOTOB25 


Listing 5 
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encounters one of the these in its periodic keyboard SCAN, 

it jumps to the appropriate subroutine and moves the screen as 
directed. However, the Accumulator cannot tell the difference 
between a value that comes from a key press and one that 
come from some other source. 

Knowing this, it is possible to bypass the keyboard entirely 
and simply POKE the values 8,16,32 and 64 into the machine 
code program area. The address used as the dump is called 
POKEIT in the Assembler Listing. Once the value is in place, the 
program can go and collect it and relocate the screen 
accordingly. 

Listing 6 shows the alterations needed to make the 
Accumulator scan POKEIT for data instead of the keyboard. 
16K users should note lines 71 and 830. 

It would be worth saving a copy of this version of the 
program because it is now significantly different from the original 
in its mode of operation. 

The first three bytes of machine code mean LOAD the 
ACCUMULATOR with the contents of the POKEIT buffer. As 
only four values are recognized by the program, namely 
8,16,32, and 64, you must be careful to ensure that only these are 
input into POKEIT otherwise nothing will happen. Line 830 
loads the POKEIT buffer with the value P and then calls the 
scroll routine. As in the previous program, a return to BASIC 
follows each screen move. Line 835 does a quick scan of the 
SPACEBAR key. Press it each time you want to try another 
value for P. The program will remain in a loop until (BREAK) 
is pressed. If you RUN the program and specify full screen 
and a speed of 500, the prompt message should move in the 
direction specified by the value of P. 

This mode was the original reason for developing the 
program. I wanted to display pages of revolving text that could 
move automatically at a pre-determined rate, first vertically then 
horizontally. 


@ Modification 3A Adding the slight changes in Listing 7 gives 
a simple demonstration of one use of automatic rotation. RUN the 
program and specify the following parameters: 


PARAMETER: 

WINDOW NUMBER 1 (ENTER) 
LINES DOWN 6 (ENTER) 
BYTES FROM LEFT 33 (ENTER) 
LINE LENGTH 2 (ENTER) 
LINES TO SCROLL 5 (ENTER) 
DELAY 1000 (ENTER) 


Revolving words, sentences and pages may be of use to 
teachers of reading trying to increase a child's reading speed, 
word recognition and comprehension. For instance, a whole 
series of similar words could be made to revolve through the 
sentence, with the child stopping the scroll when a word seems to 
make sense. 


@ Modification 4 The next two examples show that other 
things can be moved besides simple sentences and words. The 
first might be of use in physics or mathematics, the second is 
really just an interesting piece of graphics. Listing 8 has the new 
lines of BASIC. Line 1030 determines the rotation direction. 

If the parameters below are entered, after the two waves have 
been drawn, the top half of the screen will rotate while the lower 
half remains stationary. A partial move like this, manually or 
automatically controlled, could be of use in teaching the ideas of 
phase differences. Of course, the number and form of the curves 
can easily be altered by changing the equation in line 960. 


PARAMETER: 

WINDOW NUMBER 1 (ENTER) 
LINES DOWN 1 (ENTER) 
BYTES FROM LEFT O (ENTER) 
LINE LENGTH 64 (ENTER) 
LINES TO SCROLL 7 (ENTER) 
DELAY 100 (ENTER) 


@ Modification 4A To produce a wave of the form shown in Fig 
4 enter the BASIC lines given in Listing 9. Use the parameters 
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FEATURE: Screen scroller 


1@ REM LISTING 2 MODIFICATION 3 ‘2 eM ~2STING 2 MODIFICATION § " 
15 REM LINES 742, 772,788 DELETED: 78, 825,830,848 CHANGED:S35 INSERTED + REM INSERT NEW ROUTINE FROM 980-2002 
! 
| 
' 
‘ 
1 


' 
7B DATASB: 2521 255» QQ Qs 25418: ABs 18; 254, 16, 48, 8! 
TL AGH 16K SYSTEM DATA SO. 2i2L 127-0400 812 PONE~222, Wl (Sis 27s) sPOKE-10) WI (Shs 28,2) 


302 REM LISSAJOUS © IGURES 
918 ON ERRC® GOTO 2002 


alpen 
738 CLS:SW=1:REM SW={ MEANS WINDOW 1 — roe 
79@ REM PUT THE PARAMETERS FOR WINDOW i INTO BUFFERS Shion 
90@ NE=95 :FORC=1T026:POKE-ME, W1 (Sh, Cy Q) :ME=ME-1 :NEXT 30 Bes 
818 POKE-102, WI (SW, 27, @) : POKE~1@1, WI (Sw, 28, @) ae tere 
828 REM CALL MACHINE CODE 978 Y1=(COS(Y*@, 0:74) +1, S)#15 
825 CLS:PRINTA7@4, CHRS(15)sSINPUT"VALUE OF P TO BE POKED INTO POKEIT 8 16132 640NLY-NO CHECK FOR INVALID mere 3 
ENTRIES:SPACEBAR TO CHANGE P's? eo oe cherie 
B32 POKE-4, PPOKE 1652 130: POKEL6S27, 25417=USR(B)oKS3@ °OKES2764, P: POKELES26, 138: POKELESI7, 12622=USR (2) Ve) IFO) SETHENCO=CO~(26C) 201=-CizPesoxcoTDiee 
835 Q=PEEK (14480) : IFQ=128THENS25 {@1@ IFCO(@THENCO=CO-(24C4) :C=-C1: P=64 
342 GOTO832 128 POKE-d, P 
- 1@38 POKE16526, 138:POKE16527, 254: 7=USR(2) 
Listing 6 142 GOTOSE8 
2802 RESUMENEXT 
Listing 10 (Above) 


18 REM LISTING 2 MODIFICATION 3A 
S REM 825 CHANGED:821 INSERTED 


S2i CLS'PRINT@4E2Z, “JACK AND JILL WENT UP THE HILL": 

25 PRINTA74Q, CHRS( 1S) SINPUT"VALUE OF P TO SE POKED INTO POKEIT § 16132164 ONLY-NO CHECK FOR INVALID ENTR 

IESSPACEBAR TO CHANGE P"3P 

Fig 5 (below) Some Lissajous figures 





Listing 7 
Cae oe 
Soriano eric 10 REM LISTING 2 MODIFICATION 4A. be ad Bie a 
5 9EM 820-840 DELETED:980-1848 INSERTED io REN 380, 1010 DELETED!96Q, 378 CHANGED:965-965,971 INSERTED a ia aes oe ag, 
! ‘ is oe 
: a Poe ia. ee 
' solace 5°° 85s 
1 encenl*** bidet TTT TTT TTT ee hhh TTT) 
812 OOKE~102, WI (Sh, 27, @) : POKE-181, WI (Sw. 29, @) 
30@ REM PHASE DIFFERENCE BETWEEN TWO WAVES .A 
i. a 980 REM CRESTED WAVE GRAPHICS DISPLAY 
220 i= 31@ CLS 
32 FORA=QTO2USTEP 2S 28 X= 
aa Hates 2 i=0 Lee LT | giter*tty ie giieetas 
S58 DGeBee. 174 36 FORBE170108 Nis ly, att In th, ul! 
atthe 950 DG=B4Q, 174 7 |) La | boa | Da | 
ae 362 Y=(SIN(DG)¥5) +10 lt, ley ‘t. ll 
978 SET(X, Y) 965 FORA=1T03QSTEP? yi! ‘jl “hil it ' “hi 
330 IFX) 127THENX=8 967 IFX1) S27THENX1=X1-12 ott lig cat lial! ee tlle,,, 
cote 968. IFX1 (OTHENK1=Xi+127 
WOO NEXTAR 978 SET (Xi, Y#(1, 124A) 
1028 POKE16526, 130:POKE16527, 254 971. NEXTA D6 
1030 POKE-d,64:2=U5R(@) 368 Y=X+1. 184 
B48 S0TC1038 990 IFX) 127THENY=8 
1000 NEXTE 
1028 POKE16526, 138:POKE16527, 2 a a ee 
1038 POKE-4, 64:7=USR(@) ee | Hi || Hae i a 
1840 GOTOLa3e hal ait te Mae tyes yt 
; Hie t ah age et Lee ee 
Listing 8 (Above le#t) ‘i * is" sui I is : a ‘is 
a) rT a Tt Sh 
Tee Lie tes ed Se hry 1 1 
Listing 9 (Above) PULP SCL Ae PO LC 
Fig 4 (Left) Waveform produced by Listing 9 ios 
above except specify LINES TO SCROLL = 16. enjoyment to be gleaned from trying different equations and 


playing about (experimenting) with the other variables. 

The code for this is given in Listing 10. Note the ON ERROR 
GOTO ...essential if the user is not to be incessantly plagued by 
FC ERRORS. Lines 950-980 control vertical movement, while 
lines 990-1010 look after the screen. Figure 5 gives some 
examples of the kind of thing produced. Specify full screen 
movement and fastest speed initially. 


@ Modification6 A chart recorder is used mainly for simulation 


@ Modification 5 So far, the screen has been moved and a 
stationary bright spot used to etch a trace on it. With the sine 


waves, the curves were drawn first and then the whole or part of 
the screen was moved afterwards in order to animate the display. 
The next possibility is to move both screen and spot in 
succession. Some interesting effects are obtained if this 
movement is at right angles. 


@ Lissajous Figures A harmonograph is a fascinating purposes. The top half of the screen becomes a mobile recording 
machine to watch. It often consists of a pencil and paper sheet and the lower half is used for the demonstration program 
oscillating at right angles to each other on razor-edge or glimbal that generates the data to be recorded. The example given here, 
bearings. The resulting drawings can be very beautiful, especially Listing 11, is a colorimeter being used to measure the increase in 
when coloured. turbidity of a liquid growth medium as a population of bacteria 

If the screen (paper) is oscillated right-left and a spot (pencil) develops. 
is oscillated up/down then depending on their relative rates and A colorimeter is a device that measures the amount of light 
amplitudes, different figures can be produced which, within the penetrating a liquid. The darker the colour of the liquid or the 
limits of TRS80 low resolution graphics, give a reasonable more material suspended in it, the more light is absorbed. > 
approximation to Lissajous Figures. There are many hours of The light is simulated by an oscillating pixel moving from right 
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REM LISTING 2 MODIFICATION 6 
REM INSERT NEW ROUTINE FROM 980-1130 


R 
c 
av 


S1@ POKE-182, WI (SW. 27, @)s POXE-181,W1 (SW, 28, @) 

9@2 REM CHART RECORDER AND COLORIMETER SIMULATION 

312 CLEQR202 

928 CLS 

9238 PO=1 

942 K=2 

988 AS=STRINGS(S4, 191) SBS=STAINGS (5, 191) 

952 ORINTGR, A$; :PRINTSR+ (G¥64),9$; 

972 SORA=@TOS: PRINTSO+ (#64), 83: PRINTSSS+ (AxG4), BS SNEXTA 
982 PRINTAQ+( 964), A$; 

992 PRINTAB+(3e64)+3," CHGRT RECORDER AND COLORIMETER DEMONSTRATION "3 
{B02 PRIN B+: 12#64),AS; 

{B12 FORA=12TOL4: PRINTA+ (Ax64), BSS NEXT 

1220 PRINTGB+( 14454), A$s 

1232 FORA=18TO14: PRINTAS9+(A¥S4), BS NEXT 

1248 FIRA=1TO1B: KX S=RND(117)+6: ViSRND(S)+353SET CXL, YL) SNEXT 
185@ FORX=117TO6STEP-1 

1Q68 FORY=34T04i 

1272 IFPOINT(¥, ¥) THENL OS@ELSEN=N+ 1 

1098 SET(X, Y)S9ESETOVLY) 

1898 NEXTY 

11QQ NEXTY 

1118 FORB=1TON/S@:SET(12, 23-B) «NEXT 

1128 POKE-4, 64:P0KEL6526, 138: POKE 16527, 254: 2=USR(O) 

1$38 GE=GE+! 

1142 PT=K4GE 

1158 FORC=1TOPT-PO:X 1=RND (117)45s YISRND(S)+332SET (Xi, Yi) SNEXT 
1168 P0=P7 

i278 N=@ 

1188 GOTS:05@ 


Listing 11 (Above) 


Listing 12 (Top right) 


Listing 13 (Right) 


to left. The bacteria are pixels in the pathway. They are 
increasing exponentially. The program sends the oscillating pixel 
across the solution. POINT is used to detect the presence of a 
lighted pixel (=1 bacterium). After a complete pass the total 
count is scaled and plotted on the chart recorder as a vertical 
line. The recorder is then moved to the right, reproduction occurs 
and the next beam of light sweeps through the solution. It is worth 
trying different values of K in line 940. K=2 means that the 
population doubles each generation. 


PARAMETER 

WINDOW NUMBER 1 (ENTER) 
LINES DOWN 2 (ENTER) 
BYTES FROM LEFT 6 (ENTER) 
LINE LENGTH 92 (ENTER) 
LINES [0 SCROLL 7 (ENTER) 
DELAY 1 (ENTER) 


Although many other experiments can be simulated, the point is 
that partial screen scrolling gives the would-be animator an extra 
useful facility. 

@ Modifications 7-7C From one and two directional movement 
it is a short step to multidirectional options. The program in Listing 
12 draws a turtle on the screen and then waits for the user to press 
the ARROW keys. This demonstrates that large graphics units can 
be moved smoothly all over the screen. Whole screen parameters 


1@ REM LISTING 2 MODIFICATION 7 
{S REM INSERT NEW ROUTINE FROM 980-2078 


818 POKE-122, WI(Si, 27, 2): POKE-181, WI (SW, 28; @) 
308 REM PRIMITIVE TURTLE(') GRAPHICS 


‘ 
28 CLS 

938 AS=STRINGS(3, 128) +CHRS (160) +CHRS (176) +STRINGS (2, 188) +CHR$(176) 

348 BS=CHR$(176)+CHRS$( 188) +STRINGS (6, 191) +CHRS (189) +CHR$(176)+CHR$ (184) +CHR$ (143) +CHRS (141) 
958 CS=CHRS( 128) +CHRS( 156) +CHRS( 142) +CHRS (129) +STRINGS(2, 128) +CHR$ (136) +CHRS (142) +CHR$ (129) 
2802 PRINTAS41, A$; 

2818 PRINTG&OS; BS; 

2822 PRINTAGES, C$; 

2838 FORA={TOSEQSTEPS: X=40+ (COS(A¥B, B174)+1) #15: V¥=12+ (SIN(AKB, 0174) +1)¥*7, StSET (Xs ¥) SNEXT 
2048 POKE 16526, 138: POKE16527, 254 

205SB P=PEEK( 14408) 

2868 POKE-4, P:7=USR(B) 

2072 GOTC2058 


1@ REM LISTING 2 MODIFICATION 7A 
15 REM 2850, 2060 CHANGED: 912, 978-1822, 2865 INSERTED 


! 

818 POKE-182, Wi (SW, 27; @)  POKE-181, WI (SW, 28, @) 

902 REM PRIMITIVE TURTLE(') GRAPHICS FROM NUMERICAL ARRAY 

91@ DIMP¢48) 

922 CLS 

938 AS=STRING$(3, 128)+CHR$( 168) +CHR$( 176) +STRING$ (2, 155) +CHR$(176) 

942 BS=CHR$(176)+CHR$(188)+STRINGS(G, 191) +CHR$( 199) +CHRS(176)+CHRS (154) +CHR$(143) +CHRS (141) 
958 C$=CHRS$( 128) +CHR$( 136) CHRS( 142) +CHRS (129) +STRINGS(2, 128) +CHRS (136)+CHR$ (142) +CHRS (129) 
978 FOR MO=17T04S: READMV:P (MO)=NV: NEXT 

988 DATA 32, 32, 32, 32s 32) 32) 32) 32 32) 32 

990 DATA 8,8,8,3 

{B02 DATA 64, G4, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,64, 64, 64 

181@ DATA 16, 16,16, 16 

1828 DATA 32; 32; 32; 32; 32; 32; 32) 32, 32; 32 

2088 PRINT@341,A$; 

2812 PRINTG4BS, BS; 

2022 PRINTQ4ES, C$; 

2838 FORA=1TOS6QSTEPZ: X=48+(COS( AQ, 174)+1) #15: Y=12+(SIN( Ae, O174)+1)#7. S:SET(X, Y) NEXT 
2042 POKE16526, 138: POKE16527; 254 

2058 FOR B=iT048 

2862 POKE-4, 9(B): Z=USRIQ) 

265 NEXTB 

2878 GOTO2852 


and fastest speed are needed for all these “Turtle Graphics” 
examples. 

The simplest way to obtain continuous multidirectional 
movement under program control is to use an array to store the 
moves. This data can be passed into the POKEIT buffer 
sequentially. Listing 13 shows how this can be implemented to 
move the turtle along a rectangular pathway. The version in 
Listing 14 is much more user-friendly. Data is input as U,D,L and 
R. The program then translates these into the corresponding 
numbers. 

Finally, in the interests of space saving, Listing 15 line 960, 
has the same data in compressed form. 


SET RA oie means 9 moves Left, 1 move Left, 4 moves Up... 


To reduce things to their simplest, any number of moves greater 
than nine must be stated indirectly. Thus: 


20 moves Left=9L9OL2L = 3 sets of moves 9L+9L+2L 


The two-dimensional array in Line 910 will hold 48 separate sets 
of moves. The string DT$ represents nine sets. There is no 
reason why the array should not be enlarged to cope with more 
complex movements. 


@ Modifications 8 - 9 

So far, all the examples have involved single windows. It is also 
possible to have many windows scrolling and rotating 
sequentially under both manual and program control. The final 
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1@ REM LISTING 2 MODIFICATION 7B 
15 REM 970-1888 CHANGED 
t 


972 FOR MO=1T048 

388 READMVS 

992 IFMV$="U"THENP(MO) =8 

1088 IFMV$="D"THENP(MO)=16 
1010 IFMV$="L"THENP(MO)=32 
1020 IFMV$="R" THENP(MO)=64 
1838 NEXT 

1848 DATA LiLsLsLobibslsbs bot 
1858 DATA UU, Us U 

1868 DATA RRR RRs Ry Ry Rs RyRy Re Re Rs RRs Rs RyRy RR 
1878 DATA DD, DD 

1882 DATA LoLsbsLsbsbsbslots L 


Listing 14 


REM LISTING 2 MODIFICATION 7C 
REM 1840-1888 DELETED: 912, 962-1828, 2850-2865 CHANGED 


18 
15 
' 

‘ 

‘ 

' 
900 REM PRIMITIVE TURTLE(!) GRAPHICS FROM STRINGS-)2D NUMERICAL ARRAY 
318 DIMP(48, 2) 

' 


368 DT$="SLIL4USRSRZRADSL IL" 
%5 1-8 

978 FORMO=1TOLEN(DT$)STEP2 
975 I=I+1 

988 P(1,1)=VAL(NIDS(DT$, NO, 1)) 
$85 MVS=MID$(DTS, MO+1, 1) 

998 IFNVS="U"THENP(I, 2)=8 
1008 IFMVS="D"THENP (1, 2)=16 
1818 IFMV$="L"THENP(1, 2)=32 
1828 IFMVS$="R" THENP( I, 2)=64 
1838 NEXT 

' 


' 

{ 

i 

2858 FOR B={T0! 
2055 FORB1=1T0P(B, 1) 


2062 NEXTB1 
2865 NEXTB 


Listing 15 


set of examples show how this might be done. 

The modification given in Listing 16 allows the user to INPUT 
the window number to be scrolled. Answer the “NUMBER OF 
WINDOWS REQUIRED” prompt with a number >1 and then 
input their parameters as usual. Use the ARROW keys to move 
the current window and the spacebar to enter another window 
choice. 

To change the window manually, with the minimum of 
program interruption, the method shown in Listing 17 (lines 750- 
760) can be employed. These lines need some further 
explanation. 

When a key is pressed, the bit pattern is copied into one of 
seven addresses in RAM according to which row the key is in. This 
RAM BUFFER occupies addresses 16438 to 16444. The table 
below shows how they are mapped to the keyboard rows. 


TABLE 4 
Keyboard Row 
G 
O 
W 


Z 
7 
/ 

S 


pacebar 
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FEATURE: Screen scroller 


18 REM LISTING 2 MODIFICATION 8 
iS REN INSERT NEW ROUTINE FROM LINES 728-878 


' 

718 WICR CeB)=LEWICR, C41, @) 42 C=0+2: RETURN 

728 REM DEMONSTRATION MULTIPLE WINDOW SCROLLING-MANUAL VERSION 
738 CLS 

748 FORA=15488701 6383: RR=RND (159) +32: POKEA, RRENEXT 

TSO PRINTAQ, CHRS(3Q) 3: INPUT"STATE WINDOW TO SCROLL";SW 

79 REM PUT THE PARAMETERS FOR SELECTED WINDOW INTO BUFFERS 
802 ME=96:FORC=11026:POKE-ME, WI (SW, C, 2): ME=ME-1SNEXT 

812 POKE-1 2) M1 (Sh 27, @) : POKE-181, WI (Sh, 28, @) 

828 PRINT@@, CHR$(3B);"ARROW KEYS MOVE WINDOW:SPACEBAR TO GET NEXT WINDOW": 
838 POKEL6S26, 138:POKE16527, 254 

848 P=PEEK (14428) 

858 IFP=: 28THENTS@ 

868 POKE-4, P:Z=USR(O) 

872 GOTO842 


Listing 16 


@ REM LISTING 2 MODIFICATION SA 
S REM 820,858 DELETED: 742,378 CHANGED:725, 758-768, 965 INSERTED 


\ 
! 
\ 
| 
720 REM DEMONSTRATION MULTIPLE WINDOW SCROLLING-MANUAL VERSION 


725 REM CAN ACCESS WINDOWS BY SCANNING THE RAM BUFFER 16438 
738 CLS 

74@ FORA] iS3607C1 6383: RR=RND (159) +32: POKEA, RRs NEXT 

750 FORBU=@7T03:SO=PEEK ( 16438+BU) 

755 IFSG=QTHENSIO 

768 SW=INT (BU*8+(LOG(SQ)/8, 69) ) 

79@ REM PUT THE PARAMETERS FOR SELECTED WINDOW INTO BUFFERS 
882 NE=[6 :FORC=17026:POKE-ME, wi (Siw, C, @) :ME=ME-1 NEXT 

812 POKE-182; W! (SW 27) B): POKE-10i, WI (SW, 2 @) 

3@ POKE16S26, :38:POKE16527, 254 

848 P=PEEK (14488) 

$62 POKE-4, ®:2=US9() 

365 NEXT 

$72 GOT075@ 


Listing 17 


For example, pressing the letter A will cause a2 to appear in 
16438. As all these addresses have a “resting state” of zero, any 
non-zero value means a key in the corresponding row has been 
pressed. 

If letters instead of numbers are used to request windows, 
any one of 26 windows can be called at the press of a single 
alphabet key. Scanning the four addresses 16438-16441 fora 
non-zero value will reveal the row containing the pressed key. 
Line 760 decodes the value PEEKed into a number between | 
and 26 reflecting the position in the alphabet of the key pressed. 
This value (SW) is then used to index into the WI ary in line 800, 
causing the parameters for the requested window to be accessed. 
Pressing A gives window 1, B gives window 2 and so on. If you 
want more than 26 windows you're on your own! 

Finally, the program in Listing 18 permits the number of moves 
and the associated directions to be entered by means of DATA 
strings (line 820). The values are stored in the hitherto unused 
array elements WI(R,C,1) and WI(R,C,2). By entering the 
parameters given in Table 5 for 12 windows, a graphics block (it's 
a Dalek) manouevres around an obstacle course. 

The general idea is very simple. By specifying several 

windows which have overlapping parameters, the contents of one 
window can be passed to another rather like a conveyor belt. 
Figure 6 shows the overlapping areas in this example. To 

reverse the movement, complementary sets of instructions are 
used (line 820). At the same time, note that the parameters 

for windows 1-6 are the same as those for 12-7. Any amount 
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FEATURE: Screen scroller 


TABLE 5 


WINDOW LINES BYTES LINE SCROLL DELAY INSTRUCTIONS 
NUMBER DOWN LEFT LENGTH LINES 
NW LD SB LL SL DE 
l ] 0 Ye 5 ] OROR1R 
2 ] 17 15 10 ] 5D 
3 6 17 34 < ] QROR|R 
4 6 ©), Is 1] ] 6D 
2 12 5 48 o l OLOLOL7L 
6 9 2 13 8 ] 3U 
7 9 = 13 8 ] 3D 
8 12 5 48 5 ] QRQOROR7R 
9 6 39 13 1] ] 6U 
10 6 ‘7 34 S ] OLOLIL 
1] ] 17 LS 10 ] SU 
12 ] 0 32 5 l OLOLIL 
1@ REN LISTING 2 MODIFICATION 9 870 BS=STRINGS(2, 128) +CHRS (187) +STRINGS (Sy. 191) +CHRS(183) 
1S REM INSERT NEW ROUTINE FRON 690-1130 982 C$=CHRS( 178) +CHR6( 194) +STRINGS(B, 191)+STRINGS (2; 14B)+CHRS( 183) 


898 D$=CHR$(123)+CHR$(187)+" DALEK “+CHR$(183) 
90@ E$=CHR$(128)+CHR$(187)+STRINGS(7, 191) +CHRS( 183) 
912 2$=STRING$(31, 153) 


S2 wiih, 28, @)=D" 928 21$=STRINGS$(i1, 143) 
685 RE* USING MULTIPLE WINDOWS FOR ANIMATION 928 72¢=STRINGS$(18, 159) 
692 CN=2 348 73$=STRING$(17, 138) 
78@ READDTS$ 950 24$=STRINGS(S, 175) 


71@ WICR, @, L)=LENCDT$) /2 

72 FORMO=1TOLEN(DT$)STEP2 

738 CN=CN+1 

788 WICR, CN, LI=VAL(MIDSCDT$, MO, 1)) 
758 MVS=MID$(DTS, MO+i, 1) 

762 IFMV$="U"THENWI (R; CN, 2)=8 

778 IFMV$="D" THENWI (R, CN, 2)=16 
788 IFMV$="L"THENWI(R; CN, 2)=32 

790 IFMV$="R"THENWI (R, CN, 2)=64 


368 FORA=QTC3:PRINTAS3+ (A¥64) , 265 SNEXT 

972 PRINTASS4, 23$; 

982 FORA=QTO8: PRINTA384+(A¥G4) , 249; SNEXT 

398 PRINT@G6R, 228; 

1808 FORA=QT018:PRINTASA9+(Ax64), 215 =NEXT 

{Q12 PRINTA@R, A$; : PRINTAG4, BS; PRINTA128, C$; :PRINT@192, D$s ¢ PRINT@256, E$; 
128 POKE16526, 138:POKE16527, 254 

1038 FORR=1TONW 

1848 ME=96 :FORC=1 7026: POKE-ME, WI(R, CQ) SME=ME-1 NEXT 


382 NEXTMO 185@ POKE-182, W1( Rs 27, 8): POKE-181, WI(R, 28; @) 
81@ NEXTR 1068 FORC=1TOWI(R»@ 1) 
928 DATA SRORIR, SD, IRSRIR» SDs SLOLSL7Ls SU, SDs SRORIR7A, GU» SLL IL» Ss SSLIL 1878 FORCI=1 TOWI(R, C1) 
838 GOTO8S@ 1082 POKE-4, WI(R, Cy 2): Z=USR(@) 
94 WI(R, C,@)=L2WI CR C+1, @)=MsC=0+2? RETURN 1098 NEXTCi 
$58 CLS 1188 NEXTC 
SEB AS=STRING$(2, 128) +CHR$ (184) +CHRS (198) +STRINGS (5, 191)+CHR$(188)+CHRS (188) 1118 NEXTR 
Listing 18 1128 FORT=1701008 :NEXT 
1138 GOTO1G38 





Fig. 6 Overlapping areas for Dalek obstacle course 


of overlap is possible between adjacent windows. intention has been to try to show that screen scrolling and rotation 
The illustrations given here by no means exhaust the can have its uses, especially in the field of simple animation. 


options for screen scrolling. It is appreciated that in one or two 
cases, the same effect can be created in other ways, but the 
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80 AGE COLOR 


HIGH RESOLUTION 








“There is no doubt that the JVC range of ECM 
colour monitors is excellent value for money ... 
there is no loss in quality of picture after long 
periods . ..and remember, as more and more 
resolution is available with new micros, the need 
for a better display will be that much greater.” 

High recommendation indeed from Personal 
Computer News. Meanwhile Acorn User said: 

“It seems that all ‘normal’ and ‘medium’ 
resolution monitors, including the Sanyo, are 
simply inadequate to deal with the Beeb’s graphics 
and text output . . . The JVC was excellent, giving 
clear, legible results . . . Was the JVC better than the 
Microvitec?* Would I buy one? Yes to both 
questions.” 

Our RGB high resolution colour monitor (580 X 
470 pixels) sells for £229.95 (excluding VAT) — that’s a 
saving of over &100 compared with other leading monitors 
of similar specifications. 

The unit has a 14” screen and is suitable for the 
BBC Micro, Electron, Sinclair QL, Lynx, Oric, Apple, IBM 
and most other leading micros. 


Minimum 19.5kv Maximum 22.5kv 





























DISPLAY 80 characters by 25 lines 
SLOT PITCH 
INPUT: VIDEO 


R.G.B. Analogue/TTL Input 
Separate Sync on R.G.B. Positive or Negative 






EXTERNAL CONTROLS 






On/off switch and brightness control 








THAT COMES 
HIGHLY RECOMMENDED. 








And naturally there’s a year’s full guarantee. 

If you order your monitor by post, you'll receive it 
within ten days by courier service. 

Simply post the coupon below to: Opus Supplies Ltd., 
158 Camberwell Road, London SE5 OEE. Or telephone 
01-701 8668 quoting your credit card number. Or, of course, 
you can buy at our showroom between 9.00—6.00pm, 
Monday-Friday. 9.00-1.30pm, Saturday. 

*Microvitec Cub 14” monitor. 


| Please send me: 
High Resolution Colour Monitor(s) at 

&229.95 each (ex. VAT). 

Medium Resolution Colour Monitor(s) at 

&179.95 each (ex. VAT). 

Connection lead(s) at £6.00 each. 


I understand carriage per monitor will cost an extra £7.00. | 
(N.B.A High Resolution Monitor including VAT, lead, and carriage | 
costs £279.39. A Medium Resolution Monitor including VAT, lead 

and carriage costs &221.89). | 


I enclose a cheque for &£ ______________Orr p lease debit my credit card 


(please tick) no. is 
Please state the make of your computer 
Name 


| account with the amount of & ___________ My Access/Barclaycard 
Address 


a 


firs 28 fn Le Opus Supplies Ltd 


a ort’ 4 








icroman by Gordon 
Pask and Susan Cur- 
ran is a beautifully 


produced book which shows 
that attractively designed and 
well structured books can be 
produced at a reasonable price. 
There are credits for an editor, 
design and art director, picture 
researchers and others and 
their joint effort is impressive. 

Gordon Paskhas contributed 
considerably to developments 
in cybernetics and in know- 
ledge-based systems and this 
book reflects his work, ideas 
and experience in these fields. 
The Microman of the title is 
man enhanced by the creative, 
non-threatening uses of the 
micro that have become 
possible as a result of his work 
and the work of others. 

The introduction claims that 
the bookis not about computers 
but about the developing re- 
lationship between people and 
computers. About how we have 
shaped computers and, sub- 
sequently, how computers are 
shaping us and our en 
vironment. I remember vividly 
an electronics engineer saying 
tome, nottoo long ago, that the 
only use for computers was to 
design other computers. As the 


How Com 
Pute 
are Revolutionising fun Lives 
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BOOK PAGE 


Garry Marshall 





The use and application of computers — a wide 
ranging topic. Our reviewer assesses four very 


different books. 


designs for computers have 
become increasingly complex, 
this has indeed become one 
essential function. Now, we also 
have factories full of robots 
building other robots but we 
have begun to learn how to take 
advantage of the power of 
computers in many other ways. 
This book describes many of 
those uses and the ideas 
behind them. 

The book can be read as a 
layman's guide to how 
computers are used and how 
they are changing and enrich- 
ing our lives: but it goes deeper 
than this. Microman has 
several strands running through 
it; the applications of 
computers, the changes they 
bring, the representation of 





knowledge, the nature of 
artificial intelligence and the 
likely future impact of com- 
puters. These strands interact 
with each other, so that themes 
recur in different chapters, 
rather like overlapping sliding 
panels, giving an apt analogy 
to the dynamic computational 
forms that are dealt with. 

One chapter deals with 
computer networks and parallel 
processing, explaining how a 
number of computers linked 
together by a network, each 
performing computations atthe 
same time can actin concert as 
one large computer. It then 
discusses how anexpertsystem 
can exist in such a network with 
different computers carrying out 
different tasks, so that a 
problem is dealt with by sub- 
dividing it and passing each 
sub- problem tothe appropriate 
specialist machine. The idea of 
a conflict, such as that which 
might arise when two parallel 
computations converge and 
interact in a way that has no 
clear resolution, is then intro- 
duced. This idea of conflict and 
the attempt to resolve it is 
developed as a basis of 
intelligent behaviour, and illus- 
trated with reference to the 
game of ‘Life’ in an impression- 
istic way that requires no real 
knowledge of the technical 
issues involved in order to 
appreciate it. 

An example of the way that 
computers have affected us at 
quite a deep level is provided 
by the way in which we think 
about artificial intelligence. 
Prior to the advent of com- 
puters, intelligence was thought 
of as something that was dis- 
played by humans only and this 
naturally led to definitions of 
intelligence that involved 
humans and human character- 
istics. But in trying to make 
computers intelligent, discus- 
sions of machine intelligence 
cannot sensibly refer to def 
initions that involve humans 





and their characteristics. We 
must try to think more broadly 
than this. Not to do so could 
leave the unconstructive point 
of view that computers cannot 
be intelligent because they are 
not human. 

Chapters on Language and 
knowledge’ and ‘Data struc- 
tures and knowledge structures 
discuss the ideas behind the 
representation and manipu- 
lation of knowledge in a com- 
puter and provide an explan- 
ation of the concepts of know- 
ledge-based systems andsome 


indication of what has been 


realised to date. 

In a way, one of the middle 
chapters, ‘The microprocessor 
in action, encapsulates the 
strengths of the book. The title 
of the chapter is not especially 
apt, for after describing al- 
together familiar applications of 
the microprocessor, ranging 
from the digital watch through 
uses in cars to robots, it sud- 
denly launches into develop- 
ments that are, in terms of the 
individual, much more impor- 
tant. 

Xanadu is Ted Nelsons 
structured data bank that con- 
tains a vast amount of material, 
all with links and cross refer- 
ences to other items in the 
bank. This makes it a sort of 
dynamic reference _library/ 
encyclopaedia/word processor 
and as such it provides a new 
tool for accessing information, 
consultation and creating new 
material that is superior to all 
its conventional predecessors. 
Similarly, Nick Negroponte's 
Data Space coordinates com- 
puters, quadrophonic sound 
and video to create artificial 
experiences in a completely 
new way. Finally, the ways that 
the computers ability to pro- 
cess knowledge can be har- 
nessed in expert systems, 
computer-aided design and 
decision-making are described, 
so that the chapter has followed 
one strand of computer appli- 
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cation from the firmly estab- 
lished to the very edge of cur 
rent developments. 

There is a great deal to 
stimulate and inform the reader 
in this book, and it deserves 
careful reading. I would just 
note for the record that the 
material on micros is a little out 
of date, with photos of the ZX8] 
and Apple II (the book first 
appeared in hardback). Also 
the four picture researchers 
might have noticed that what 
purports to be a floppy disk in 
the illustration on page 26 is 
really a (rather rigid) video 
disk. 

Chris Naylor's previous book, 
on expert systems, was about 
how to write one of your own to 
run on your micro. By way of 
contrast, Programs That 
Write Programs (subtitled 
Choosing and Using Program 
Generators) is not about how to 
write one, ratherit is about what 
they are, what they are for and 
how to choose one from those 
that are available. 

It is written in the same 
readable and racey style as the 
earlier book, in fact, the style is 
rather more appropriate this 
time. This book is basically 
aimed at the businessman who 
is about to buy, or has just 
bought, a micro and who needs 





to write programs for it to meet 
his individual needs. The book 
provides an entertaining and 
informative treatment of its 
topic, assuming no particular 
knowledge of its readers. 

Aiming firmly at the bus- 
inessman with no background 
in computing, the author begins 
his task of explaining about 
program generators by taking 
the line that unless you know 
something about computers, 
you are unlikely to be in a 
position to appreciate program 
generators and their potential 
uses. So the first part of the 
book is a rapid tour of how a 
computer works, what you can 
do with a computer and how to 
program it. This takes 50 pages 
so that it can offer only a broad 
sweep but it does this very 
effectively, extracting the prin- 
ciples involved quite effort- 
lessly. 

A program generator is a 
program that can write other 
programs. The first insight that 
we get is that any high-level 
language translator is a pro- 
gram generator, for it is a pro- 
gram that when given a high- 
level language program, writes 
the equivalent machine code 
program. This explains the 
presence ofsuccinct treatments 
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REVIEW : Computing books 


of BASIC and COBOL in the 
final section of the book which 
is devoted to reviews of pro- 
gram generators. 

The concept of the appli- 
cation width of a program 
generator (ie the extent of the 
range of applications in which it 
is useful) is introduced. With 
any language system or pro- 
gram generator, the more 
closely it is tailored to a par- 
ticular type of application the 
smaller its application width 
becomes. At one extreme is 
machine code, with the largest 
possible application width and 
at the other, any highly special- 
ised applications package with 
only very specific uses. 

There is also a_ trade-off 
between the application width 
of a package and the ease with 
which one can leam to use it 
because the more features it 
has, the longer it will take to 
master them. Naylor points out 
that even though a narrowly 
applicable program will be 
comparatively easy to learn, 
even this learning will not be 
transferable unless the program 
is operated in much the same 
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What can be done with a 
computer is reduced to the four 
basic elements of input, output, 
manipulation and storage. At 
this level it is not at all difficult 
to acquire an appreciation of 
what can be done. Under the 
heading of storage, the treat- 
ment of files is very good. The 
general discussion of pro- 
gramming is also accurately 
aimed at its target audience, 
conveying certainly enough 
information, but not too much. 

I think that this outline intro- 
duction to computing is more 
enlightening than many pro- 
vided by entire books with this 
as their aim. It could be read 
with benefit by any newcomerto 
computers and computing. 

The middle section of the 
book is a very brief summary of 
the first part, for those who think 
that they know enough toskip to 
it I would suggest that 
everyone read the first part for 
its insights and skip the second, 
except that it does provide a 
useful glossary. | 

The final part of the book 
contains uniform reviews of 
nine program generators as 
well as of BASIC and COBOL. 


They are usefully structured 
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and succinct. The author does 
not attempt to select a ‘best 
buy’, for the generators are so 
varied in their capabilities and 
the position of the potential user 
on the learning curve somucha 
factor, that this is an impossi- 
bility. To give a brief flavour of 
the reviews, ‘The last one is 
described as ‘a menu-driven 
method for writing COBOL 
programs in BASIC’. If that 
phrase arouses your curiosity, 
stimulates your imagination or 
just amazes you, then I suggest 
you buy the book. 


I chose to review Micro- 
computing by R G Ander- 
son because | thought it would 
provide a solid introduction to 
microcomputing from a slightly 
unusual angle. The book is 
written by an accountant, so 
that it could be expected to 
provide a treatment relevant to 
business computing; the author 
claims that it should be suitable 
for students studying for a wide 
range of professional insti- 
tutional exams. That the bookis 
from a respected series and in 
its second edition also suggests 
that it is should be good. I was 
sorely disappointed. 

The core of the book covers 
elements of microcomputing 
and operating a microcom- 
puter, then the concepts of pro- 
gramming and an outline of 
BASIC. This is a fairly con- 
ventional prospect but the treat- 
ment is disappointing and, in 
places, dubious. Statements 
such as the following do not 
really inspire confidence in the 
author. 


‘Some micros have an ASCII, ie 
QWERTY type standard key- 
board’ (p36). 


‘The Sharp MZ-80K (has) 
BASIC stored on cassette or 
disc which has to be loaded 


into ROM before processing is 
possible’ (p45). 


‘Programs can include 
READ statements, which re- 
quires the inclusion of DATA 
statements containing the 
variables (numbers) to be 


processed.’ (p49-50). 


This month's books are: 













210 pages, £3.50 
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Microman by Gordon Pask and Susan Curran (Century 
Publishing Co) 222 pages, £4.95 

Programs That Write Programs by Chris Naylor (Sigm 
Technical press) 220 pages, £7.95 

Microcomputing by R G Anderson (Macdonald and Evans) 


Micros and Modems: Telecommunicating with Personal 


Computers by Jack Nilles (Reston) 1'/0 pages, £14.40 
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In a list of the general charac- 
teristics and structure of BASIC, 
item(a) is ‘Each instruction or 
statement is written on @a 
separate line.’ and item (z) is‘A 
string variable ends with a $ 


symbol.’ (p67 and 69). 


The cumulative effect of items 
like these is really depressing. 
An inability to distinguish be- 
tween a variable and the name 
of a variable, not to mention the 
value associated with a vari- 
able, makes it difficult to pro- 
gress far with BASIC. 

The original edition of the 
book was based fairly closely 
on the PET. This influence per- 
sists so that a new chapter on 
local area networks fits rather 
uncomfortably with the older 
material and, to add to the tale 
of woe, unaccountably tails off 
into an account of Lisa, other 
similar systems and _ icons. 


A Ws, 


M8 be HG tig Ys 


There is a new chapter on 
graphics but to deal mainly 
with PET-style memory- 
mapped graphics in 1984 is a 
severe constraint. 

There are some quite useful 
accountancy programs, but 
they do not extend to the use of 
files, so the reader is not taken 


ry far into BASIC or its 


4 


business applications. If the 
author has heard of program 
generators he gives no sign of 
it, but an awareness of program 
generators would be far more 
valuable to an accountant than 
the progams presented by the 
author. Definitely one to avoid. 


Micros and modems by 
Jack Nilles is the most satisfac- 
tory book that I have seen on 
micros and communications. 
Using a micro to access Preste! 
and Micronet, for example, is 
becoming increasingly com- 
mon. Nilles describes many 
similar uses that a communica- 
tions capability makes possible 
and indicates a numberthat are 
likely to come in the future. 

These include network in- 
formation services, office auto- 
mation, community bulletin 
boards, enhanced personal 
communication and entertain- 
ment facilities and telecom- 
nuting (that is, not commuting) 
to work and to school. All his 


REVIEW : Computing books 


predictions are firmly based on 
the idea that what is available 
in industry and business today 
is likely to be available and at 
a much reduced price, to the 
individual in the near future. 

The book provides original 
ideas and new ways of looking 
at many topics because it deals 
with micros and communi- 
cations in the broad context of 
the information environment 
and society in general and not 
just in their technical frame- 
work. 

The first part of the book 
explains reasons why we 
should be interested in com- 
municating with our micros (in 
case we are not). It deals in a 
non-technical way with micros 
and how to tum them into com- 
munications terminals and tele- 
communications systems (par- 
ticularly the telephone network 
and broadcast systems but not 
neglecting cable systems and 
even satellite systems). It then 
goes on to discuss the inter- 
action of people with the com- 
puter/communication system 
and the importance of making 
systems easy and natural to 
use. Ways in which this can be 
done are illustrated. 

The book's second part is 
concemed with how to make 
micros communicate. How to 
make them communicate with 
each other, with mainframe 
computers, with other machines 
and even with people. A chap- 
ter each on hardware and soft- 
ware stresses strongly the 
interactions between the two. 
Communications software writ- 
ten in BASIC and in assembler 
is presented. The dialect of the 
BASIC is Cromemco Structured 
BASIC and although it is likely 
to differ from the versions 
available to you and me, it has 
the great merit of being easy to 
read and to understand. 

The book concludes with 
chapters on communication 
networks with good treatment of 
local area networks and the 
developments that can result 
from linking micros with a 
network. The new jobs, the new 
styles of life and the new forms 
of entertainment that can result 
are explored and illustrated. 
The importance of these de- 
velopments is not to be under- 
estimated. 

I can recommend Micros 
and Modems as an interest- 
ing and intelligent account of 
the developments themselves, 
the technology behind 
them and their conse- 
quences. 
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COMPUTER ROBOTICS 
TRAINING 


FULL TIME COLLEGE COURSE 


SUITABLE FOR APPLICANTS WHO WISH TO 
ENTER COMPUTER SERVICE OR RELATED 
INDUSTRIES — HIGH PERCENTAGE OF 
PRACTICAL COURSE WORK 


15 MONTHS 
B TEC Certificate in Computing Technology 


9 MONTHS 
B TEC Higher Certificate in Computing Technology 





Subjects: Foundation Electronics. Digital 

Techniques, Microelectronics, Microprocessors. 

Microcomputer Based Systems, Industria! 

Robotics, Machine Code & High Level Pro- 
gramming. 


In days gone by, falconry was the sport of gentlemen and 
Kings — this noble and time-honoured tradition is not so 
prevalent in these technological times, and it is quite a 
pity, too. Justimagine the pride you'd feel standingin your 
Shortened courses can be arranged for applicants own back yard while your very own hunting falcon 

with previous knowledge. 


swooped down upon unsuspecting dogs, cats and 
Ford Sierras. 


Courses commence Sept, Jan and April (Higher For a limited time only, Computing Today is offering 
Cert Sept only). Prospectus from: you the chance to experience the thrill of commanding 
your own bird of prey, with the new CT Hunting Falcory 

LONDON ELECTRONICS COLLEGE (nept 5/6) Sag eld bl iektde en h Lea oa, 
genuine vinyl and cardboard, the Computing Today 

20 Penywern Road, Hunting Falcon/Magazine Binder is the spitting image of 

Earls Court, London SW5 9SU. the hunting birds of old to anybody suffering from 

Tel: 01-373 8721 cataracts. Release it from your arm, and it dives just like a 

traditional hawk. If it lands on a small animal, it will pro- 

bably stun it. Also, when you tire of the sport, and would 


rather hunt hedgehogs with your Ford Sierra, your CT 
Hunting Falcon converts into a useful magazine binder 
that holds a full year's supply of Computing Today. The 


y new CT Hunting Falcon/Magazine Binder will cost you 
S ie be y not a farthing more than the old binder alone used to: just 
3 £5.00. This includes postage and packing, so your falcon 
ice) comp qa ll } a ‘@) It wont have to tire itself out flying to your abode. 
dv | 
all a ertisement. Cut out and send to: 


> r COMPUTING TODAY HUNTING 
Oitee you know how. FALCON/MAGAZINE BINDER, 
One of the ways we keep a check on the 


INFONET LTD, 
advertising that appears in the press, on 


TIMES HOUSE, 
179 THE MARLOWES, 
posters and in the cinema is by responding to 
consumers complaints. 


HEMEL HEMPSTEAD, 
Any complaint sent to us is considered 





HERTS HP1 1BB, 


carefully and, if there’s a case to answer, a full career Ore es 
investigation is made. CR SE a le 
If you think you've got good reason to si Sal aca aa 
complain about an advertisement, send off Debit my Access/Barclaycard* 
for a copy of our free leaflet. Saciagih, earn aaac 
It will tell you all you need to know to PRS SCRS RRR E Re 
help us process your complaint as Ok Se a 
quickly as possible. f . 
"tt, Advertising Standards Authority. Name (Mr/Mrs/Miss) gto V0 Re Nari Ie oad a tn Oy einen he 
If an advertisement is wrong, were here to put it right. Br Pg 5 eee on Sethe Se wet SEE. POE RC ACA eel tee REP a 
ASA Ltd, Dept 1 Brook House, es eee raters ei EN 
Torrington Place, London WCIE 7HN | 
a a | pT Sense dees Po eces bie ein) Karas Lo EDA ae Oe 
; POO as eth Ss ectasin ns apnea nite dave eee | 
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BACKNUMBER®S 





MARCH 1983 


Colour Genie reviewed, Epson HX-20 review, 
PEEKing the Spectrum, Into Ataris BASIC, 
Terminology translated. 


APRIL 1983 

Froglet on the BBC Micro, PC-125] hand-held 
review, Valley Variations, Galaxy reviewed, 
Micro Database, Lower case UK101. 


SOmial inc 





, Monitor review 
| for the Spectrum 
MULTLTABKING 
| Can it do the jot? 
tre-taptn roxiew alll poontinnnnsepneiitiisg 
of the Elortrass— 


B SRURNAUIT fea Bt Sounding off 





Hi-resge 
the Commeds 


ye with non-ra 
Ful dereett pitior 
tor the *RS-B0 


Flas OragriBms 
tor the Spectrum, Nascom 












| tape drive review. 





MAY 1983 


Spectrum Book Survey, Oric-1 Review, Going 
FORTH Again, Jupiter Ace review. 


JUNE 1983 


Interrupt handling, Rubic simulation on the 
Spectrum, Beating the RS232 Blues, Lynx 
review, Indexer. 


JULY 1983 


Atari renumber, 16-bit micros, Bomb- proof 
Tandy, Olivetti Praxis 30 review, Ikon Hobbit 


h 
peripheral 
people 
Learn few to 
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disassembly 
feature 











Have a 
Brain 
Storming 
session 


: on your ee 
CPIM system 






More of the same- 
Recursion on four Appic languages 


AUGUST 1983 

Speeding up the Sharp, Premier Dragon disc 
drive, Sord M5 review, BBC String Store, 
Planetfall. 


SEPTEMBER 1983 

FELIX knowledge shops, Software protection, 
Torch disc pack, ZX81 Backgammon, Dragon 
character generator, Three Tandy computers. 


OCTOBER 1983 

Slingshot game, Sharp MZ-700 review, Sharp 
MZ-3541 review, Z80 Disassembler, A better 
TRSDOS, Improved VIC-20 editor. 


NOVEMBER 1983 
BBC Word Processor, ZX LPRINT review, Laser 
200 review, Writing Adventures, Learning 


FORTH Part 1, PET tape append. 


DECEMBER 1983 

MIKRO assembler review, Getting More from 
the 64 Part 1, Adventures part 2, Curve-fitting, 
BBC Touch Typing Tutor. 


JANUARY 1984 

TRS-80 programmer's aid, Apple music, 
Electron review, TRS-80 screen editor, 
calendar program. 


FEBRUARY 1984 
Using MX-80 graphics, Colour Genie monitor, 
non-random random numbers, ZX81]-FORTH, 


Program recovery on the Commodore 64. 


MARCH 1984 


Easycode part 1, BBC poker, Spectrum 
SCOPE review, Genie utilities, Spectrum 
Centronics interface. 


APRIL 1984 

Memotech MTX500 review, Genie BASIC 
extensions, Brainstorm review, Disassembly 
techniques, Recursion. 





If you've lost, lent or had stolen 
one of those precious back copies 
of Computing Today then now is 
your chance to fill the gap in your 
collection. The list of issues given 
here represents the few remaining 
copies that we have available to 
help complete your library of all 
that’s good in features, programs 
and reviews. 

If you want one of these issues, 
it's going to cost you £1.40 
(including postage and packing) 


| 

: 

| ISSUE 

| 

| 

| 

| 

7 Ate 1A) aaen FeSO Sik es Sa AA ees 

Nah MOOG 6 ok tN heen pL SRNR Stree 

Poi See ean Cle ren ene ere 

| Insert Card No. 
pl Wien ee Sega neaeat ea hala ace oe If you wish to p 
Fi saa deakas Pokies ch ae ostd BOSTICODE . ..¢. 42. ¥s~. 


Please send me the following Backnumbers 


but we think that’s a small price to 
pay for the satisfaction you'll get. 
Ordering could hardly be made 
simpler — just fill in the form, cut 
it out (or send a photocopy) 
together with your money to: 


Backnumbers, 
Infonet Ltd, 

Times House, 

179 The Marlowes, 
Hemel Hempstead, 
Herts HP] 1BB. 


BACK NUMBERS 


Access OU) 


I enclose a cheque/PO for £.....{Payable to ASP Ltd) 
I wish to pay by credit card 





ay by Access or Barclaycard, 
just fill in your card nurnber anda sign the form 
do not send your card. 


Please allow 21 days for delivery. 


If you wait until next rnonth to do 


run out o! 


wanted! 
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Jet Set Willy Software Mugsy 


Projects 
Sabre Wulf Ultimate 


Fighter Pilot Digital 
Integration 


Beach-Head US Gold 
Cosmic Cruiser Imagine 
Antics Bug Byte 
Les Flics PSS 


Meibourne 
Spectrum (2) House 


Spectrum (-) Golf 64 Abrasco 
Flight Path 737 + Anirog 
Snooker Visions 
Fall of Rome APS 

Fall of Rome APS 
Spectgrum (-) Solo Flight US Gold 


spectrum (-) Twin Kingdom 
Psytron Beyond Spectrum (3) Valley 


Cavelon Ocean CBM 64 (-) Classic 
Trashman New Adventure CDS 


Generation Spectrum (-) Blockbuster Clever Clogs 


Spectrum (1) 
Spectrum(-) 
CBM 64 (2) 
CBM 64 (4) 
Spectrum (3) 
CBM 64 (3) 
CBM 64 (8) 


Spectrum (-) 
CBM 64 (7) 
CBM 64 (-) 


Bug Byte CBM 64 (6) 


ZX 811 (-) 
Spectrum (-) 


Compiled with the assistance of Britain’s leading software distributors, 
including: Pinnacle, SDL, PCE, Websters, PCS and Software Centre. 


pe 
vs SPECT RURA 


1 Jet Set Willy 


DRIGON 32 


Mastertronic (2) 
1 Buzzard Bait 
. 
Mastertronic (5) 2Cuthbert 


Software ° in Space Microdeal (2) 
Projects (1) 3 Dragon Chess! Oasis (3) 
4 Beach Head Centresoft (-) g 
4 Hungry Horace M. House (5) 
sSnOOKer Visions (-) 5 Bug Diver Mastertronic (-) 
6 Black Hawk Creativ . 
id 6 Eightball Microdeal (4) 


Sparks (3) 
8 Atic Atac Ultimate (9) 7 Colossus Chess CDS (-) 6 Spritemagic Knight (-) 
8 Dungeon Raid Microdeal (-) 


9Scrabble Psion (-) 8 Space Pilot Anirog (4) 
10 Trashman New 9 Chuckie Egg A&F (-) 8 Skramble Microdeal (8) 
Generation (6) 9 Revelation Softek (-) 10 Mr Dig Microdeal (-) 


COMMODORE OF 


1 BMX Racers 
2 Space Walk 
3 Manic Miner 


Software 
Projects (2) 


Ultimate (-) 
Digital (-) 
Beyond (3) 


2 Sabre Wulf Microdeal (-) 


3 Fighter Pilot 
4Psytron 


5 Jack and the 
Beanstock Thor (-) 


6 Antics Bug Byte (-) 
7 Les Flics PSS (-) 


Compiled by W. H. Smith and Websters. Figures in brackets are last week's positions. 


WIC-2O) LISS] 


1 Aviator Acornsoft (1) 


1 Duck Shoot 
2 Tank Commander 


4Snooker 

5 Computer War 

6 Chariot Race 

7 Vegas Jackpot 

8 Phantom Attack 

9Sub Hunt 
10Games Designer 


Mastertronic (1) 


Creative 
Sparks (3) 


Visions (-) 
Creative Sparks 
Micro Antics (4) 
Mastertronic (-) 
Mastertronic (-) 
Mastertronic (-) 
Galactic (-) 


2 Spitfire Command 


3 OverDrive 
4Fortress 

5 JCB Digger 
6 Snooker 

7 Battie Tank 
8 Chess 

90 Man 


10 Twin Kingdom 


Valley 


Superior (9) 
Superior (3) 
Pace (-) 
Acornsoft (2) 
Visions (-) 
Superior (4) 
BBC (-) 

MRM (5) 


Bug-Byte (-) 


1 Allen Reign 


2 Krypton Ordeal 


3 Planet Ralder 


4Walk the plank 


5 Black Crystal 


CRL (9) 
Novus (2) 
Novus (4) 
Novus (3) 
Carnell (7) 


6Flight Simulation Sinclair (8) 


7 Mothership 

8 Reversi 

9 Sabotage 
10 City Patrol 


Sinclair (-) 
Sinclair (-) 
Sinclair (-) 
Sinclair (-) 






























DRAGON, BBC, SPECTRUM DEALERS 





SINCLAIR, ATARI 
COMMODORE 


yt BBC B Computer 1.2 OS. £399.00 
t 1.2 ROM £8.00 
Walkers seakoetinh aa 
Microvitec Monitor £228.00 
COMPUTER REPAIRS COMPUTER SERVICE Sanyo Green Monitors £97.00 
ae AND REPAIRS Disc Drives from: £185.00 
ve Telephone: (021) 643 5474 ee ge ihn 

Telegrams ordwise Word Processor . 
SPECIALISTS Shiplog Birmingham Acorn Electron £199.00 

Telex 337124 TWSLOG G 


All connectors, plugs and sockets for BBC, ribbon cable, discs 
C.20 C.15 C.12, cassettes etc. in stock. 


Centronics Printer Cable (BBC & Dragon) £12.90 
R.T.T.Y. Program for BBC B £7.50 
WALKERS will repair your MICRO quickly R.T.T.Y. Cireult Board including instructions £7.00 
and efficiently. R.T.T.Y. Eprom Version £20.00 
BBC/Slow Scan Program & Board £17.50 
: : : Computer Dust Covers £3.00 
Services available to suit the Customers Star Gemini 10X Printer incl cable £275.00 
requirements include ‘‘one-off’’ repairs and CP80 Printer (Inc. Cable) £230.00 
O Printer Cable (BBC or Dragon 32) £12.90 
uotations. Epson RX80, FT, FX80 (Phone availability) 
DRAGON SERVICE CENTRE 
Most Repairs will be in the range Dragon 32 : £150.00 
£15 to £30 Dragon 32 Disc Drive (Inc. Controller) £275.00 
Joysticks (pair) £14.90 
subject to machine ZX Spectrum 48K £129.00 


Memotech 512 £325.00 


FOR INFORMATION 
PHONE 021-643 5474 


CALL IN AT 
58 OXFORD STREET, BIRMINGHAM, B5 5NX 


Wide range of software for BBC, Dragon 32, ZX Spectrum etc. 

Please send SAE for full list. Post and package on small items £1 

All available mail order. Access and Visa. 24 hour phone. All prices 
include VAT at 15%. 


S P ELECTRONICS 


48 Linby Road, Hucknall, Notts NG15 7TS. 
TEL: Notts (0602) 640377 
128 ITEMS PER RECORD, 


NUMERIC, CONSTANT, RESULT OR DATE... IN FILES OF UP TO 16™ CHARACTERS! 
SuPERBASE 64 EVEN HAS SPREADSHEET AND CALCULATOR CAPABILITY, CALENDAR 
FUNCTIONS, EASY INPUT FROM WORDPROCESSOR/DATA FILES, BOTH MENU-DRIVEN AND 
PROGRAM OPTIONS, SORTING/SEARCHING, FULLY DEFINABLE OUTPUTS... SUPERBASE 64 
IS ESSENTIAL IF YOU WANT THE MOST FROM YouR 64! SUPPLIED ON CBM 154] DISK 
WITH EXCELLENT TUTORIAL/REFERENCE MANUAL. OUR PRICE £9395 £88.00! 


OR SEND S.A.E. FOR DETAILS 














TRANSFORMS THE COMMODORE 64 
INTO A FULL-FEATURED AND 
PROFESSIONAL DATABASE 
SYSTEM! WITH UP TO 1000 
CHARACTERS PER RECORD ON UP 
TO 4 SCREENS... AND UP TO 


68000 SYSTEM KITS 





We have a range of high quality, double sided, 8 by 8 
PCB’s which form the core of a 68000 system. Parts 
currently available are: 


1) 68000 FOX CPL2 contains 68000 L8 micro with 8 mHz 
crystal clock, on board dynamics refresh sequencer, full 
bus buffering, full power up/manual reset (won't disturb 
RAM’s) and 78 way gold edge connector bussing all 
CPU signals. 


2) 68000 FOX BIO provides 8/16K boot EPROM, 4K 
RAM, 20 I/O lines (PIA), RS232 interface with 14 baud 
rates, 3 channel 16 bit counter-timer, full interrupt 
handling etc. 


3) A boot loader/monitor is available in EPROMS. 














VIZAWRITE 64 IS A HIGH- 
VIZAWRITE 64 ‘srs ws ses 
PROCESSOR, WITH ON-SCREEN 

FORMATTING, THAT TAKES FULL 

ADVANTAGE OF THE 64'S COLOUR, GRAPHICS AND MEMORY FEATURES... AND SUPPORTS 
VIRTUALLY ANY PRINTER! WITH A COMPREHENSIVE AND EASY-TO-FOLLOW USER MANUAL, 


VIZAWRITE IS THE ULTIMATE PERSONAL COMPUTER WORD PROCESSOR! AVAILABLE ON 
CARTRIDGE (£89098 £75!), DISK (£25-95 £68!) OR WITH VIZASPELL (£95<95 £85!) 


MASTER 64 IS A TOTALLY NEW 

eSViaster 64 ines 
DEVELOPMENT PACKAGE, THAT'S 

THE CBM 64, 


AVAILABLE NOW FOR 
MASTER Has 85 NeW COMMANDS... AND BASIC IV Too! PLUS PROGRAMMER'S TOOLKIT, 
MACHINE CODE MONITOR, BUSINESS BASIC, KEYED DISK ACCESS, MULTIPLE SCREENS, 






















Prices: USER-DEFINABLE INPUT ZONES, REPORT GENERATOR, 22-PLACE ARITHMETIC, DISK DATA 

COMPRESSION, DATE CONTROL, SCREEN PLOT, SCREEN DUMP, AND MORE... EVERYTHING 

CPU2 PCB only eee Cle Cee ee. 68 Ce we Se Saree e, 2788 - Oe OAR Oe £60 YOu NEED TO PROGRAM YOUR 64 TO Tor PROFESSIONAL STANDARDS! (£14375 £115!) 
BI) POG OAV Gadi reeie ela vines eh caternass wees £60 

Component set for CPU2 . .cccccceccccvveccevses £110 WANT IT TOMORROW? *** CALL US TODAY! *** ON 01-546-7256 

Component set for BIO.........eeeseeeeee seen ees £98 ee seers £49.95 DIL COMPILER 64 (OLSK) .. Eiera3 £109.00 

Boot loader/Monitor ......e eee cece eee eee eeeeees £25 (bIsk) RE £48.00 SUPERSCRIPT (CBM 700) ... thas £425.00 

: : 1 rag iAGE): FRR NEE Seaease Lanse sseness: Eases. £518: 

Add VAT to above prices. Delivery 14 to 28 days. ARinTOCE) LL EaSOe E4GL9S SUPERSCRIPT (8096/8296). pee £375.00 

(DISK/TAPE) ... EbbeS® £41.50 SUPERSCRIPT (3000-8000).. £ £225.00 

CERNE ode cao cs {19-95 £75.00 MASTER (4000-8296) ...... f £225.00 





PRICES INCLUDE 15% VAT AND ARE 
CORRECT ON GOING TO PRESS. 
ORDER BY POST OR PHONE, USING 
CHEQUE, ACCESS/BARCLAY CARD OR 
OFFICIAL ORDER. DESPATCH IS BY 
SAME-DAY 1ST CLASS POST, PRE- 

. PRODUCT DATA 
AVAILABLE ON REQUEST. REF A28 Gam 







P.L. Watson, 101 Village Road, 
Bromham, Bedford MK43 8HU. Tel: 
02302 2867 





SSE LAER AE GR ENS RII TM I IE RCS 
LAKESIDE HOUSE, KINGSTON HILL, SURREY, KT2 7QT. TEL 01-546-7256 
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“TOOLKIT is an essential utility for all Basic 


programmers using the BBC Micro. . 
range is enormous. . 


. The 
. An indispensable aid 


packed full of powerful utilities’’. 
EDUCATIONAL COMPUTING MARCH 1984 


TOOLKIT ROM 


ey BASIC Programmer's Aid for the 
\‘’ BBC Micro from BEEBUGSOFT 


It is possible to program in BASIC without 
TOOLKI T but its not very smart 








“_. . Should speed up the process of 
programming considerably ... TOOLKIT is 
highly recommended’. 


PCN MARCH 17 1984 


TOOLKIT is an indispensable aid to Basic programming on the BBC Micro. It gives instant access to a set of 
powerful utilities held in ROM. 


These will get you out of trouble like the *RECOVER, or just make life much easier, like automatic listing of error 


lines, search and replace, list variables, procedures . . . 


etc. 


TOOLKIT features an extremely powerful editor, allowing the use of cursor keys to list a program line-by-line in 
either direction and move to any part of a program to overtype or insert new code and corrections. 
TOOLKIT also contains a powerful facility to trap an error in a Basic program as it runs. It will then automatically 
enter the Screen Editor, display the line in error and position and cursor at the statement at fault. 


COMMANDS 
*CHECK 


*CLEAR 


*EDIT 
rhe 


*HELP INFO 


*MEMORY 
*MERGE 
*MOVE 


*NEW 


*OFF 
“OLD 


*ON 


*PACK 
*RECOVER 
*RENUMBER 
*REPORT 
*SCREEN 


*UTIL 1 
"UTIL 2 
*UTIL 3 
*UTIL 4 
"UT. 5 
*UTIL 6 
"Ut. 7 
*UTIL 8 
*UTIL 9 


BEEBUGSOFT is the 
Software house of BEEBUG 
Publications Ltd. 


Verify a program or data in memory 


with disc/cassette. 

Clear all variables including 
integers. 

Enter full screen editor. 

Display free memory and 

pseudo variables 

Displays various useful system 
information. 

Display memory contents. 

Merge two programs. 

Move program to run at specified 
address. 

As New, but can be issued from 
within a program. 

Cancel enhanced error handling. 
As Old, but can be issued from 
within a program. 

Auto error handling — enters editor 
at line in error. 

Efficient program compactor. 
Intelligently recover bad programs. 
Allow partial renumbering. 
Extended error reporting facility. 
Screen dump to cassette or disc. 


String Search. 

String Search and Replace. 
Move Basic program lines. 

List Procedures and Functions. 
List values of A% to Z%. 

List Numeric Variables. 

List String Variables. 

List Names of Arrays. 

Set up range for Utilities 1 and 2. 


@® Just plug it in, no loading necessary 
@ 27 new commands to make life easier 


@ Saves hours in program development 
and debugging 


@ Supports both cassette and disc 
systems 


@ No command name conflict with other 
Roms 


@ Ideal for expert and novice alike 


@ Fitting instructions and a 32 page 
manual supplied 














Youll wonder how you ever managed 
without it 


PANYE-lit-le)(-Migelsamyzelllme|-t-](-15 
Talo mect=)(-104 0-10 Mm e)e-]alelal-\-ime) i 
W.H. Smiths 


£27.00 


Tare[ereltaye 
VAT & P&P 










FINDING AND 





KEEPING 





G. W. Gallagher 


Do you collect stamps, paintings, books, beermats or parking tickets? If 
you need to keep track of a multiplicity of objects, here’s the program for 
you. Written for the BBC micro, it’s easily converted for other machines. 


ne of the reasons given for buying a computer for use at 
home is that it will provide an excellent way of keeping 
records and accounts. Accounts have been dealt with on 
many occasions but there are other home uses which become 
apparent as one becomes addicted to using the computer. 
In my own case, I could see three subjects for filing 
immediately: 


@ A means of cross-reference for composer, musicians, etc for a 
record collection. 

@ A record of useful articles seen in various computing 
magazines. (I could cut out the articles but am reluctant to 
mutilate magazines unless necessary.) 

@ A collection of thimbles which has grown rapidly enough to 


need a filing system for individual details but it could just as easily 


be a collection of stamps, coins or any other collectable item. 


The program devised worked equally well for each requirement 
and can be used for any number of purposes. The example 
shown here is of the ‘thimble program. 


DATA STORAGE 


The information about each item is stored as one string, built up 
from as many sections as are required to contain the various 
pieces of information about each item. The use of a single string, 
instead of several separate pieces of data, is simply to save 
memory space. This is particularly important if the file is to be 
saved on cassette. In such a case, the strings will have to be 
taken into an array in memory before they can be added to or 
searched for information. The probable limit of the number of 


items which may be taken into the array is about 250 (which 
should be remembered when planning a cassette file for this 
program). There will be no such limit for a disc file, as the array is 
only used to hold temporarily new items to be added to the file. It 
the file is to be very large, it is probably safer to keep itona 
separate disc to avoid space problems. 

As the computer used was a BBC B, the working sections of 
the program are given as PROCs. For any other type of computer, 
these should be used as subroutines. 

In this particular example (ie a collection of thimbles) four 
ectons are used for each item as follows: 


WM 


(for a maker's name) 
(for a set reference) 
(for the artists name) 


for a description) 


6 space 


/ 
| 
\ 


Further sections can be added if required, as long as the length of 
each section is kept constant. For example, if in the first section, 
the name was less than 16 bytes long, blank spaces are added. 
This is necessary if the process of extracting information is to work. 

It is convenient to make a note of the lengths of the sections in 
REM statements at the beginning of the program (see lines 30-80). 
The total length of the specified sections is 76 bytes and two bytes 
are used by the filing system to note in each record the type and 
length of the data enclosed. I have actually used 80 bytes as the 
length of the completed entry on the file. This means that since we 
are using a random access file, the ‘pointer which indicates the 
position in the file at any particular time, will be moved on 80 
bytes from one record to the next. 
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C 


Listing 1 


10 
20 
30 
40 
30 
60 
70 
80 
90 
100 


REM. . THIMBRR 

DIMD# (300) 

REM.« «ls s+ «MAKER... (16) 

REM. « «2004561. = (20) 

REM.«» Se«+ ARTIST (18) 
REM...4...DESCRIPTION.. (22) 

REM...RECORD LENGTH 80 

PROCchoice 

ON C GOTO 100,190,430,490,500 
PROCfromfile:N=I-1:ADD=0:REM;CHANGE ON FIRST 


RUN TO N=0 


110 
ding 
120 


130 
THEN 
140 
1 Bae 
160 
170 
180 
190 
200 
210 
220 


230 


CLS: PRINT‘ 
items." 
PRINT’ "Press the return key after each entry 


“"Type = when you have finished ad 


CLS: ADD=ADD+1: D# (ADD) =""sPROCfirst:IF N#="=" 
160 ELSE 140 

PROCsecond: FPROCthird: PROCfourth: PROCcheck 
GOTO 11060 

PRINT’ ‘"These items will now be filed." 

IF N=0 THEN FROCnewfile ELSE PROCaddfile 

GOTO 80 

CLS:PRINT’’"Type 1. to look for a maker" 

PRINT ~*~" a. to look for a set" 

PRINT ’* aa to look for an artist" 

PRINT‘ " 4. to look for a description" 
INFUTCS: IF (CS-1)*(CS-2) *#(CS-3) *(CS-4)<20 T 


HEN 230 


240 
25 

260 
270 
2B0 
290 
300 
310 
320 
330 
340 
350 

C3% 

360 
370 
380 
390 


ON CS GOTO 250,300,350,390 
PRINT’ ’"The maker is?":INPUT C1# 

IF LEN(C1i#)>146 THEN 270 ELSE 280 
C1#=LEFT# (C1#,164) 
VDU2: PRINT ’;C1#:PROCLooking 
PROCWAIT:VDUS:GOTO 80 
PRINT’ ’"The name of the set is?":INPUT C2 
IF LEN(C2#) >22 THEN 320 ELSE 330 
C2$=LEFT$ (C2#,22):CLS: PRINT ‘C2¢ 
VDU2: PRINT 'C2#:PROC1 ooking 
PROCWAIT:VDU3:GOTO 80 

PRINT’ ’"The name of the artist is?": INPUT 


IFLEN(CS#) >18 THEN C3#=LEFT#(C3#,18) 
VDU2: PRINT ‘C3#:PROC1ooking 
PROCWAIT:VDUS:GOTO 80 

PRINT’ ’"The desription you wish to find is? 


"s INPUT C4¢ 


400 
410 
420 
430 
iP de, 

440 
450 
440 
470 
480 
490 
500 
S10 
520 
530 
540 
550 
560 
570 
580 
590 
500 
610 

20 
630 
540 
4550 
660 
4570 


IFLEN(C4#) >22 THEN C4#=LEFT# (C4#, 22) 
VDU2: PRINT ‘C4#:PROCLooking 
PROCWAIT: VDU3:GOTO 80 
CLS:PRINT’"“What is the number of the thimble 
INPUT number :ADD=1:N=0 
PROCchanging:PROCamending: IF R=3 THEN 480 
IF C#="Y" OR C#="y"THEN 480 ELSE 470 
PROCamending:GOTO 460 
PROCaddtilesingle:GUIU 8oO 
VDU2: PROCLlist:VDUS:PROCWAIT:GOTO 80 

END 
DEFPROCfirst 
PRINT’"The name of the maker or manufacturer 


INPUT N#:IF N¢="=" THEN 580 
D# (ADD) =D# (ADD) +N¥# 
IF LEN(D#(ADD))>15 THEN 570 ELSE 560 
D# (ADD) =D#(ADD)+" ":GOTO 550 
D? (ADD) =LEFT# (D#(ADD) , 14) 
ENDFROC 
DEFPROCsecond 
PRINT’ "The name of the set" 
INPUT N#:D# (ADD) =D# (ADD) +N¥ 
IF LEN(D#(ADD))>2=5 THEN 640 ELSE 630 
D# (ADD) =D#(ADD)+" ":GOTO 620 
D# (ADD) =LEFT# (D#(ADD) , 26) 
ENDFPROC 
DEFPROCfourth 
PRINT’ "The description of the thimble?": INFU 


T N#:D# (ADD) =D# (ADD) +N# 


580 
590 
700 
710 
720 
730 
740 
730 
74&O 
770 
780 
790 
800 


IF LEN(D#(ADD))>=75 THEN 700 ELSE 490 
D# (ADD) =D#(ADD)+" "“:GOTO 680 

D# (ADD) =LEFT# (D#(ADD) , 74) 

ENDFROC 

DEFPROCcheck 

PRINT; N+ADD,D#(ADD) 

PRINT’"Is this correct?(Y/N) " 

INPUT C#:IF C#="Y" OR C#="y" THEN 780 
IF C#="N" OR C#="n" THEN 770 ELSE 750 
D# (ADD) ="":ADD=ADD-1 

ENDFROC 

DEFFPROCfromfile 

X=OFENIN("thimble") 
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8i0 I=0:PX=PTR#X 
B20 REPEAT 
830 FPTR#X=PX 
840 [=I+1i 
850 INFPUT#X, Dt 
B40 PX=PX+E80 
879 UNTIL EOF#X 
880 CLOSE#X 
899 ENDPROC 
S00 DEFPROCnewfile 
910 X=OPENOUT ("thimble") 
920 PX=PTR#X 
30 FOR I=1 TO N+ADD 
940 PTR#X=FxX 
950 PRINT#X,D#(1) 
950 PX=FPX+80 
970 NEXT 
980 CLOSE#X 
990 ENDFROC 
1900 DEFPROCchoice 


1010 CLS:PRINT’’"Type 1 to add items" 

1620 PRINT‘ " 2 ~-to extract items" 

1030 PRINT’" 3S to correct or remove items" 
19040 PRINT’ " 4 for 2a complete list" 

1050 PRINT’ " 3 to end" 


HEN 10450 
10702 ENDFROC 
1080 DEFPROCLooking 
1090 X=OPENIN("thimble") 
1100 [I=0:PX=FTR#X 
1110 REPEAT 
112060 FTR#X=PxXx 
1130 [=I+1 
1140 INPUT#X, D# 
1150 IF CS*1 THEN 1170 ELSE PROClookfirst 
1160 GOTO 12206 
1170 IF CS>2 THEN 1190 ELSE FROC1ocoksecond 
1180 GOTO 1220 
1190 IF CS>3 THEN 1210 ELSE PROClookthird 
i200 GOTO 1220 
1210 PROCLookfourth 
1220 PX=PX+80 
1230 UNTIL EOF#RX 
1240 CLOSE#X 
1250 ENDPROC 
1260 DEFPROCLookfirst 
1270 L=LEN(C1#):IF L=16 THEN1310 
1280 J=i1 


1290 IF MID#(D#,J,L)<>C1# THEN 1300 ELSE 1320 


1300 J=J+1:IF J<17-L THEN 1290 ELSE 1320 
1210 


1320 PRINT; 1; TAB(6) ;MID#(D#, 17,20) ; TAB(3O) sMID$(D 


#,37,18); TAB(S50) sRIGHT#(D#, 22) 
1330 ENDPROC 
1340 DEFPROCLooksecond 
1350 L=LEN(C2#):IF L=20 THEN1210 
1360 J=1 
1370 
1280 J=J+1:IF J<21-L THEN 
1390 


i370 ELSE 1410 


1400 PRINT; 1; TAB(6) ;LEFT#(Dt,16) ; TAB(30) sMID#(D#, 


37,19); TAB(SO) sRIGHT# (D#, 22 
1410 ENDPROC 
1420 DEFPROCLookthird 
1430 L=LEN(C3#):IF L=18 THEN 1470 
1440 J=1 


1450 IF MID#(D#,36+J,L)<3C3# THEN 1460 ELSE 1480 


1460 J=J+1:IF J<19-L THEN 1460 ELSE 1490 


IF LEFT#(D#,16)<>C1# THEN 1330 ELSE 1220 


L060 INPUT C: IF (C-1)#(C—2) *(C—3) *(C-4) * (C-5) < 30 


IF MID#(DF,J+16,L)<>C2% THEN 1380 ELSE 1400 


IF MID#(D#,17,20)<>C2* THEN 1410 ELSE 1400 


1470 IF MID#(D#,36,L)<> C3# THEN 1490 ELSE 1480 


1480 PRINT; 13 TAB(6)LEFT# (D#,16) ; TAB(30) sMID#(D#, 1 


7,20) 3 TAB(S2) RIGHTS (DF, 22) 
1490 ENDPROC 
1500 DEFPROCWAIT 
1510 X=GET: IFX<>32 THEN 1510 
1520 ENDFPROC 
1530 DEFFPROCthird 
1540 FRINT’ "The name of the artist" 
1550 INFUT N#:D#(ADD) =D# (ADD) +N 
1560 IF LEN(D#(ADD))>53 THEN 1580 ELSE 1570 
1570 D#(ADD)=D#(ADD)+" ":sGOTO 1560 
1580 D# (ADD) =LEFT#(D#(ADD) ,54) 
1590 ENDPROC 
1600 DEFPROCaddfile 


a ee 
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> 


<n 


1610 X=OPENUP ("thimble”) 

1420 PX=PTR#X+N#80 

1630 FOR I=1 TO ADD 

1640 PTR#X=PX 

1650 PRINT#X,D#(1) 

1460 PRINTD# (TI) 

1670 PX=PX+80 

1680 NEXT 

1690 CLOSE#X 

1700 ENDPROC 

i7io0 DEFFPRUCLooktourth 

1720 L=LEN(C4#):IF L=22 THEN 1760 
1730 J=1i1 

1740 IF MID#(D#,56+J,L)<>C4# THEN 1750 ELSE 1770 


1750 J=J+1:IFI<23-L THEN 1740 ELSE 1780 

1760 IF RIGHT#(DF,22)<>C4% THEN 1780 ELSE 1770 

1779 PRINT; 1; TAB(6) LEFT# (D#,16) ; TAB(30) sMID# (D4, 1 
7,20); TAB(S2) sRIGHT# (DF, 22) 

1780 ENDPROC 

1790 DEFPROCamending 

18c0 FPRINTD? 

1810 PRINT’ ‘’"Do you wish to:”" 

1820 PRINT‘’"1. change this record" 

1830 PRINT‘’"2. cancel this record" 

1840 PRINT‘’"S. leave it unchanged" 

1850 INPUT R:IF (R-1)#(R-2)*(R-3)<>0 THEN 1950 

1860 ON RF GOTO 1880,1870,1890 

1870 D#="ZZZZ"+STRING#(72," “)sENDFROC 

1980 D#(ADD) ="":PROCFfirst:PROCsecond:FPROCthird:PR 
OCfourth:PROCcheck1 

1890 ENDFROC 

1900 DEFFROCchanging 


FORMING THE SECTIONS 
The PROCs used are as follows: 


@ PROCiirst (510-580) takes in the information for the first 
section and makes sure that it is the correct length. It is in this 
section that there is the chance to stop adding items by typing in 
‘=' instead of any other data. 

@ PROCsecond (590-650) takes in the data for the second 
section and corrects it for length if necessary. 

@ PROCthird (1530-1590) repeats the process for the third 
section. 

@ PROCfourth (660-710) repeats the process for the fourth 
section. 

@ PROCcheck (720-780) gives the opportunity to check the 
string once the sections have been added together. It the string is 
correct, it is stored in the array as D$(ADD). If it is not correct, the 
string is scrapped and the process repeated. 


The variables used at this stage are: 


D$ = The array which stores the new records before they are 
added to the file. 

N The number of records which are already on the file. 

ADD The number of items added at any one time. 


EXTRACTING INFORMATION 


It is possible to search for information included in any section of 
the string without necessarily giving the complete section for 
checking. For example, if] wished to obtain a list of thimbles, all 
of which contained the word ‘rose’ as part of the description, | 
cold do so by using the MID$ string function. Taking L to be the 
length of ‘rose’, ie four bytes, the program will check through each 
of the four sections in tum, moving along one byte at a time, until 
all the possible consecutive groups of four bytes have been 
checked. Thus the word ‘rosette’ and the phrase ‘yellow rose’ 
would each be picked out. The PROCs used are: 


@ PROClookfirst (1260-1330) checks the first section. 

@ PROClooksecond (1340-1410) checks the second section. 
@ PROClookthird (1420-1490) checks the third section. 

@ PROClookfourth (1710-1780) checks the fourth section. 


If you have included more than four sections then this list of 
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1910 X=OPENIN("thimble") 
1920 PX=(number-—1)*80 
1930 PTR#X=PX 

1940 INPUT#X ,D? 

1950 CLOSE#X 

1960 ENDPROC 

1970 DEFPROCaddfilesingle 
1980 X=OFENUP ("thimble") 
1990 PX=(number-1)*380 
2000 FPTR#X=FX 

2010 PRINT#X,D#(ADD) 

2020 CLOSE#X 

2020 ENDPROC 

2040 DEFPROCchecki 

2050 PRINTs;number ,D# (ADD) 
2060 PRINT'"“Is this correct?(Y/N)" 
2070 INPUT C#:IF C#="Y" OR C#="y" THEN 2100 
27080 IF C#="N" OR C#="n" THEN 20970 ELSE 2070 
2090 D#(ADD)="" 

2100 ENDFROC 

2110 DEFFROCList 

2120 X=OPENIN( "thimble"? 
2130" 1=0:PX=FPTR#X 

2140 REFEAT 

2150 FIR#X=PX 

21460 I[=I+1 

2170 INFPUT#X ,D? 

27180 PRINT; 1;D# 

2190 PX=FPX+80 

2200 UNTIL ECF#X 

2210 CLOSE#X 

2220 ENDPROC 


PROCs must be extended to cover the extra ones used. 


ALTERATIONS TO RECORDS 


The order of the records on the file is important to my filing system 
as each thimble or LP record sleeve has on it a label with the 
same number as that given to it in the file. Thus, if a thimble or LP 
is broken, exchanged or perhaps sold, that particular position on 
the file must not be lost but kept open until the number is used 
again. 

The program makes it possible to call up a particular record 
by number and to alter, cancel, or return it to the file unaltered. 
Cancelling a record means replacing it by a set phrase, in this 
case, "ZZZZ", which is unlikely to be used otherwise in section |. 

If you wish to amend or cancel a particular record but do not 
kriown its number, then calling up the records which fit the 
description (or artist or make that is known) will result in a list of all 
possible items, including their numbers. The chosen number can 
then be called. 

The following PROCs deal with the alteration: 


@ PROCamending (1790-1890) which offers the possibilities of 
changing, cancelling or leaving the record unaltered. If the string 
is to be altered, it is redone completely and checked on 
completion, using: 

@ PROCcheckl (2040-2100) which is similar to the check used 
plus new items. The difference is in the numbering of the item 
which must be kept the same as the original brought from the file, 
else it will be put back in the wrong place. 


FILING PROCEDURES 


The example is based on the filing system for BBC Basic Il which 
includes the command OPENUP, in addition to the commands in 
Basic I. Only two of the PROCs will need changing for the earlier 
models (they will be pointed out when the situation arises). The 
name of the file in this case is “thimble” and this should be 
replaced wherever it appears by the appropriate name. 


@ PROCnewflile (900-990) opens up a new file when the first 
collection of data is ready to be filed. Separating the first filing 
from later ones avoids the misuse of the command OPENOUT 
which has the unfortunate characteristic of destroying any file of 
that name already in existence. This command should be used 
with care! 


COMPUTING TODAY AUGUST 1984 


SOFTWARE: Finding and keeping 


Listing 2 
10 REM..LISTING 2 1972 *RENAME thimble TEMP 
1600 DEFFROCaddfile 1974 Y=OPENOUT ("thimble") 
1604 *RENAME tahimbie TEMP 197& X=OPENIN("TEMP") 
1408 Y=OPENOUT ("thimble") 1978 PY=PTR#Y 


lolie X=OPENIN("TEMF") 1980 PX=PTR#X 
1616 PY=PTRRY 1982 REPEAT 


1620 PX=FTR#X 1984 FPTR#X=PxX 

1624 REPEAT 1986 INPUT#X ,DF 

1428 PTR#X=PX 1988 FTR#Y=FY 

1632 INPUT#X ,D# 1990 PRINT#Y, Dt 

1636 PTR#Y=PY 1992 PY=PY+80 

1640 PRINT#Y,Dt 1994 PX=PX+80 

1644 PY=PY+80 1996 UNTIL PX=(N-1)#*80 
1648 PX=PX+80 1998 PTR#HY=FY 

1652 UNTIL EOF#X 2000 PRINT#Y, Dt (ADD) 
1656 CLOSE#X 2002 REPEAT 

1660 FOR I=1 TO ADD 2004 PY=PY+80 

1664 PTR#Y=FY 2906 FPX=FX+80 

1668 PRINT#Y,D# (1) 2008 FPTR#X=FX 

1672 FPY=PY+80 2010 INPUT#X, Dt 

1676 NEXT I 2012 PTR#Y=PY 

1680 CLOSE#Y 2014 PRINT#Y,Dt 

1684 *DELETE TEMP 2016 UNTIL EOQF#X 
1700 ENDPROC 2018 CLOSE#X 


1970 DEFPROCaddfilesingle 2020 CLOSE#Y 
2022 *DELETE TEMF 





Listing 3 
10 REM. . THIMBRR 310 FPROCWAIT: FROCnewfile:END 
20 DIMD# (300) 315 DEFPROCfirst 
30 REM...1...MAKER.. (165) 5320 FRINT’ "The name of the maker or manufacturer 
40 REM. . 2.2... SET.. (20) >" 
30 REM...3...ARTIST (18) 3720 INPUT N#: IF N#="=" THEN 580 
60 REM...4..-.DESCRIPTION.. (22) 540 D#(ADD) =D# (ADD) +NF 
70 CLS:PRINT’ "Please make sure that your cass 3590 IF LEN(D#(ADD))>15 THEN S70 ELSE S60 
ette 1s correctly positioned to load the file. P 560 D#(ADD)=D#‘(ADD)+" “:GOTO 550 
ress the SFACE BAR when ready" 370 D#(ADD)=LEFT#(D#(ADD) ,145) 
80 FROCWAIT:FROCfromfile:N=I-1 580 ENDPROC 
85 PROCchoice 390 DEFFROCsecond 
90 ON C GOTO 100,190,430,490,500 600 PRINT‘’"The name of the set" 
100 ADD=N 510 INFUT N#: D# (ADD) =D# (ADD) +NF 
110 CLS:PRINT’ "Type = when you have finished ad 620 IF LEN(D#(ADD)) 235 THEN 640 ELSE 620 

ding items." 630 D#(ADD)=D#(ADD)+" "sGOTO 620 
120 PRINT'"Fress the return key after each entry 640 D#(ADD) =LEFT#(D# (ADD) , 36) 

oi 650 ENDFROC 
130 CLS: ADD=ADD+1:D#(ADD)="":PROCFfirst:IF N¢="=" 660 DEFFROCfourth 

THEN 160 ELSE 140 79 PRINT’ "The description of the thimble?": INPU 
140 PROCsecond: PROCthird: FROCfourth: PROCCheck T N#:D#(ADD) =Dt (ADD) +NE 
150 GUTO 110 680 IF LEN(D#(ADD))>75S THEN 700 ELSE 690 
140 GOTO 85 690 D#‘ADD)=D#(ADD)+" ":GOTO 680 
190 CLS:PRINT’ "Type 1. to look for a maker” 700 D# (ADD) =LEFT#(D# (ADD) ,76) 
200 PRINT ** 2. to look for a set" 710 ENDPROC * 
210 PRINT‘" >. to look for an artist” 720 DEFPROCcheck 
220 PRINT’" 4. to look for a description" 730 PRINT; N+ADD,D# (ADD) 
230 INFPUTCS: IF (CS-1)#*(CS—-2) *(CS-3) *(CS—-4)<>:0 T 740 PRINT’"Is this correct? (Y/N) “ 

HEN 230 eee ; 750 INPUT C#:IF C#="Y" OR C#="y" THEN 780 
240 ON CS GOTO 250,300,350,390 760 IF C#="N" OR C#="n" THEN 770 ELSE 750 
250 PRINT’ ’"The maker is?":INFUT C14 770 D#(ADD)="":ADD=ADD-1 
260 IF LEN(C1%)*+16& THEN 270 ELSE 2806 780 ENDFROC 
270 Ci#=LEFT#(C1#,16) 790 DEFPROCfromfile 
280 VDU2:FRINT’3;C1#:FROCi ooking S00 X=OPENIN ("thimble") 

290 PROCWAIT: VDU2:GOTO So 810 I=0 

300 PRINT’ ’ "The name of thea set 157": iNFUT C2 820 REPEAT 

S10 IF LEN(C2$) >22 THEN 320 ELSE 330 G40 I=I+i 

320 C2S=LEFT# (C2$,22) sCLS:s PRINT ‘C2¢ 850 INPUT#X, D#(I) 
330 VDU2ZEPRINT “C2¢:FROClLooking 870 UNTIL EOF#RX 
240 PROCWAIT: VDUS:GOTO 80 880 CLOSE#X 

2590 PRINT’ ’ "Tne name os the artist is?":INFPUT C 990 ENDPROC 

3 : . 900 DEFFROCnewfile 
2600 IFLEN(C32) 218 THEN CS#=LEFT#(C3#,18) 910 X=OFPENOUT ("thimble") 

370 VDU2Z:FRINT ‘C3#:PROClooking 930 FOR I=1i TO ADD 
380 FROCWAIT: VDU3S:GOTO 80 950 PRINT#X,D#(1) 
390 PRINT’ ’"The cesription you wish to find is? 970 NEXT 

“2 INPUT C4+ 980 CLOSE#X 
400 IFLEN(C4#) 322 THEN C4#=LEFT#(C4#,22) 990 ENDFROC 
410 VDU2: PRINT ‘C4#:FROCLooking 1000 DEFPROCchoice 
420 PROCWAIT: VDUS:GOTO 80 1010 CLS:PRINT’‘’"Type 1 to add items" 

30 CLS:PRINT’"“What is the number of the thimble 1020 PRINT’ " 2? to extract items" 

Sos 1030 PRINT‘’" 3 to correct or remove items" 
440 INPUT number :ADD=numbder 1040 FPRINT’" 4 for a complete list" 
450 PROCamending: IF R=3 THEN 480 1050 PRINT’" 5 to end" 

460 IF C#="Y" OR C#="y"THEN 480 ELSE 470 1060 INPUT C: IF (C-1)*(C-2) *(C—-3) *#(C-4) *#(C-S)< 30 T 
470 PROCamending:GOTO 4460 HEN 1060 
489 GOTO 80 1070 ENDFROC 
490 VDU2:PROClist: VDUS:FROCWAIT:GOTO 80 1080 DEFPROCLlooking 
3900 CLS:PRINT’’"“Please make sure that your cass 1100 I=0 
ette is correctcly positioned to save the file. PF 1110 REPEAT 


ress the SPACE BAR when ready" 
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@ PROCfromfile (790-890) is only used here as a counting 


1130 I=I+1 device so that the numbering of new items will be correct. It will 
1150 IF CS*1 THEN 1170 ELSE PROClookfirst be needed in a slightly amended form for the cassette file but it 
1160 GOTO 1220 could be omitted for the disc file as long as some other way of 
iis coe oan pas EASE: PRR Cee eee keeping note of the number of records on the file is adopted. One 
1190 IF CS>3 THEN 1210 ELSE PROClookthird way is to use the first record on the file to hold the number which 
1200 GOTO 122 tells you how many records there are. This means that the data 
1ei0 PROCI ookt ag th would then begin with the second record. 

a a @ PROCaddfile (1600-1700) It is here that knowing the number 
1260 DEFFROClookfirst N of records already on the file becomes important. The pointer 
1270 L=LEN(C1#):IF L=16 THEN1310 (PTR#X) is moved to the beginning of the (N+1)th record by 


1280 J=1 


moving it N* ecor tes. Thi 
1290 IF MID#(D#(1I),J,L)<2C1i# THEN 1300 ELSE 1320 g (length of | record) bytes. This can only be done 


using OPENUP and the altemative PROC for other versions will 


1300 J=J+i:IF J<17-L THEN 1290 ELSE 1330 be found later in the article. Once the pointer is in the correct 
1310 IF LEFT#(D$(I),16)<>C1# THEN 1350 ELSE 1520 place, the ADD new items will be added on to the file. 
1320 PRINT; 1;TAB(4) sMID#(D#(1) ,17,20) ; TAB(30) ;MID e PROClooking (| 080-1250) as the ssi 2 of looking through 
$ (D# (1) ,37,18) ; TAB (SO) RIGHTS (D$(I) ,22) the items of the file for items which satisfy given conditions, such 
1330 ENDPROC as a particular artist or description. 
apetete eon ee ee ere @ PROCchanging (1900-1960) finds the record asked for by 
1te6 Jet aes as is number and offers it for amendment. 
1370 IF MID#(D#(1I),J+16,L)<>C2# THEN 1380 ELSE 14 @ PROCaddfilesingle (1970-2030) If a single record has been 
00 é i wetunme 4 amended after PROCchanging, this is the means of putting the 
1380 J=J+1i:IF J<21-L THEN 1370 10 | a 
1390 IF MIDS(DS(1) .17,20)<>C2¢ THEN 1410 ELSE 140 revised version back into the correct position. It also uses the 
0 command OPENUP and will need alteration for other systems. 
1400 PRINT; 1; TAB(4) sLEFT#(D#(1) ,16) 3 TAB(30) MIDS ¢ 
D#(I),37,18);TAB(SO) sRIGHT#(D# (I) ,22) 
1420 DEFPROE THE MAIN PROGRAM 
1420 DEFPROCLookthird 
1430 L=LEN(C3#):IF L=18 THEN 1470 a | 
1440 J=1 This is situated between lines 10-500. It uses two PROCs which 
1450 IF MID#(D#(1I) ,346+d,1 )<>C34 THEN 1460 ELSE 14 have not already been described. 
80 ; . @ PROCchoice (1000-1070) contains the menu available. 
1460 J=J+1:IF J<19-L THEM 1460 ELSE 1490 ® PROCWAIT (150 . 
1470 IF MID$(D$(I),36,L)<> C3# THEN 1490 ELSE 148 (1500-1520) waits for the space bar to be 
O pressed before moving on. 


1480 PRINT: 1; TAB(4)LEFT# ‘D#(1) 516); TAB(3O) ;MID#(D 
€(I),17,20) ; TAB(52) RIGHTS (D#(1) ,22 

1490 ENDFROC 

1500 DEFPROCWAIT 


Other variables are: 


1510 X=GET:IFX<>32 THEN 1510 C The variable carried forward from the menu. 
1520 ENDPROC CS The variable indicating which section is to 
1530 DEFPROCthird belek ac neving . 

1540 PRINT’"The name of the artist" ested when extracting inlormation 

1550 INPUT N¢:D¢# (ADD) =D# (ADD) +N Cl$, C2$, C3$, The variables representing the strings to be 
1560 IF LEN(D#(ADD))>53 THEN 1580 ELSE 1570 C4$ searched for in sections 1, 2, 3 or 4 


1570 D#(ADD)=D#(ADD)+" "“:GOTO 1560 
1580 D#(ADD) =LEFT#(D# (ADD) ,54) 
1590 ENDFROC 


respectively. 


1710 DEFPROClookfourth Line 100 contains two statements. When the file is being used for 
1720 L=LEN(C4¢):IF L=22 THEN 1760 tig toet Heaths too: 
1730 J=1 
1740 IF MID#(D#(1I) ,56+J3,L)<>C4# THEN 1750 ELSE 17 
70 100 N=0:ADD=0 
1750 J=J+1:IFJ<23-L THEN 1740 ELSE 1780 
1760 IF RIGHT#(D#(1) ,22)<>C4# THEN 1780 ELSE 1770 Wii: Hirt yd ing should ie 


1770 PRINT: 1; TAB(6)LEFT# (D#(1) ,16);TAB(SO) sMID#(D 

€(1),17,20) 3 TAB(S2) sRIGHT# (D#(1) , 22) 100 PROCfromfile: N=I—1:ADD=0 
1780 ENDFROC 
1790 DEFPROCamending 


pte densentt Uhm This change could be avoided by putting in an extra question, eg 
1810 PRINT’ ‘"Do you wish to:" Is this a new file? (Y/N) but the question would then have to be 
1820 PRINT‘’"1. change this record" answered every time the program was used. It is a matter of 


1830 PRINT’ "2. cancel this record" 
18640 PRINT’"S. leave it unchanged" 
1950 INPUT R:IF (R-1)*(R-2)#(R-3)<>0 THEN 1850 


personal choice as to which method is preferred. 


DS es cera ade ose USING A PRINTER 

1870 D#$="ZZZZ"+STRING#(72," “) :ENDPROC aa 

1@80 DS (ADD) ="":PROCfirst:PROCsecond:PROCthird:PR When lists of items are extracted from the file, it is useful to have 
Ocfourth:PROCcheck1 the list printed out (if a printer is available). The VDU2 statement 

1870 ENDFROC which enables the printer will be found on lines 280, 330, 370, 

2040 DEFPROCcheck1 410 and 490. The printer is then switched off on the following lines 

2050 PRINT;number ,D# (ADD) eiadae lie let Acie h ba aifl ae 

3040 PRINT’ “Ie this correct? (¥/N)" when the lists are complete and is only on when actually needea. 

2070 INPUT C#:IF C#="Y" GR C#="y" THEN 2100 The complete program will be found in Listing 1. Option 4 on 

es ee re eee ne ee nee eee the menu(a complete list) will be found to be useful when the 

mie agin program is first run. It will give an immediate check as to whether 

3110 DEFPROCList the items are being filed as you expect. Listing 2 gives the 

2130 I=0 alterations necessary when the command OPENUP is not 

Sap paige available. Listing 3 gives suggested alterations when a 

2180 PRINT; 13D#(1) cassette file is used, To use the file for the first time, ie 

2200 UNTIL I=ADD when no previous file exists, an extra line can be added but 

2220 ENDFROC must be deleted before the second and subsequent runs. — 

65 N=0: GOTO 100 
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Personally, we think you'll like our approach to microcomputing. 
Each month, we invite our readers to join us in an abundance of 
feature articles, projects, general topics, software listings, news and 
reviews — all to help committed micro users make more of their 
microcomputers at home or at work. 


However, if you've ever missed a copy of Computing Today on the 
newstands, you'll not need us to tell you how valuable a subscription 
can be. Subscribe to CT and for a whole year you can sit back, 
assured that each issue, lovingly wrapped, will find its way through 
your letter box. 


And it's not difficult! All you have to do is fill in the form below, cut it 
out and send it (or a photocopy) with your cheque or Postal Order 
(made payable to ASP Ltd) to: 


COMPUTING TODAY Subscriptions, 


Infonet Ltd, 

Times House, 

179 The Marlowes, 
Hemel Hempstead, 
Herts HP] 1 BB. 


Alternatively, you can pay by Access or Barclaycard in which case, 
simply fill in your card number, sign the form and send it off. Please 
don't send in your card. 


Looking for a magazine with a professional approach with material 
written by micro users for micro users? Why not do yourself a favour 
and make 1984 the year you subscribe to Computing Today and we'll 
give you a truly personal approach to microcomputing. 





q lam enclosing my (delete as necessary) y 
cheque/ Postal Order/ International Money 
: SUBSCRIPTION ea OgeeE HOE ! 
made paya ag re) r 
| ORDER FORM Debit my Access/ Barclaycard” | 
| (“delete as necessary) | 
Cut out and SEND TO: 
COMPUTING TODAY Subscriptions 
| | 
| rine Hone Please use BLOCK CAPITALS and include postcodes. | 
! 179 THE MARLOWES, NAME (Mr/ Mrs/ Miss) ......00.0..0.0scssssesseseseeee 7 
HEMEL HEMPSTEAD, elete accordingly 
| HERTS HP] 1BB. Pee or ades copied ee Oe oe | 
| Please commence my subscription to Computing s | 
| Today with the So ber ae issue. eh OM Se TS ee es Oe ie tk el a ee te hs te ee eee ee ee ee) ee ee | 
| SUBSCRIPTION ees FOE Ta CRE © FA eee ae ees nbn oe gt 0d ee 6) he er nee 7 
UK si 
in £17.55 for 12 icsues | SRN 3S gic hls. 0a fos stances aie ooh a eeontde 
| josedew ree Overseas Surface LL OE 5 fate iin sd aurea neers) wade wena aie ee | 
| i clad th £37.20 for 12 issues | 
Ka Overseas Airmail 5 Ethie oe eee es _CT Aug ‘84 | 
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Trapped in a fiendish Level 9 Adventure? 
Your lamp burning low? Every exit guarded? 


You need escape plans! Send for one of Level 9’s great 
new clue sheets for help. The clue sheets are free and 
each answers hundreds of questions: follow the 
instructions supplied with your adventure to get one. 
(Don’t forget to send a stamped self-addressed 
envelope and tell us which game you have.) 

NEW REVIEWS: ‘‘Level 9 are fast establishing a name for 
themselves among computer adventurers as the Number 1 
producers of quality adventure software. All their adventures are 


text only, but because of a special coding they have developed, 
the amount of description and the number of locations packed in 


32K in truly amazing.”’ Midweek. 10 May 84 
— Midweek, 10 May 


‘‘Quicksilva call themselves the ‘Game Lords’. That 
might be open to argument. But there can be no 
doubt that Pete Austin and the team at Level 9 are 
the ‘Lords of Adventure’. 

— Central Press Features, April 84 


‘‘Play Lords of Time and get nine times the pleasure!”’ 
— Your Computer, May 84 


AVAILABLE FROM: WH Smith and good computer 
shops nationwide. 

If your local dealer doesn’t stock Level 9 
adventures yet, ask him to contact us or: 
Centresoft, Drake Distribution, Ferranti & Craig, 
Hi-Tech, Lime Tree, Microdeal, R&R or 
Wonderbridge. 


Level 9 Computing 
Colossal Adventure: the original mainframe 
adventure with 70 extra locations LJ 
Adventure Quest: an epic journey across the 
weird landscape of Middle Earth CJ 
Dungeon Adventure: a truly massive game 
which completes the Middle Earth Trilogy 
Snowball: could this be the biggest SF 
adventure in the world? 
Lords of Time: an imaginative romp through 
World History a 


Contact: 
LEVEL 9 COMPUTING 
Dept. C, 229, Hughenden Road 
High Wycombe, Bucks. HP13 5PG 
Telephone: (0494) 26871 
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Tony Cross 


parameters in keywords. It is quite possible, of course, to 

use strings and string expressions as keyboard parameters, 
it just requires some different techniques. This month, therefore, | 
am going to concentrate on evaluation and manipulating strings 
and string expressions and then taking a look at BASIC variables, 
both string and numeric. 


STORING STRINGS 


Strings are stored and manipulated in a way that is quite different 
from the way numbers are handled. This difference arises 
because of the physical size of the strings themselves. You may 
remember from last month, that floating point numbers are always 
five bytes long and integers are one or two bytes long at the most. 
Strings,on the other hand, can be anything from 0 to 255 bytes 
long. 

In addition, when we need to manipulate floating point and 
integer numbers, it is the numbers themselves that are moved 
around. Now a 255 byte long strip is a very large beast indeed — 
if it became necessary to move several strings of this length 
around then the Interpreter would slow down considerably. 

The Commodore 64s BASIC (like many other BASICs) over- 
comes these problems by using a two part storage method for its 
strings: 


ws o far in this series | have only looked at the use of 


@ the string itself 
@ A string descriptor (or header) 


The first part (the string itself) is stored at some convenient 
location in memory. (More on this later.) The second part (the 
string descriptor) is a three byte ‘block’ that completely describes 
the string. It consists of two pieces of information: 


@ The string length (the first byte of the descriptor) 
@ The string address (the last two bytes of the descriptor) 


Because the string descriptor contains all the information we need 
to know about the string, we can do all the manipulation on the 
descriptor, instead of on the (much longer) string. This makes 
working with strings much faster (and simpler). 

Now let's have a closer look at how the string itself is stored. 
There are actually three main types of string: 
1 String variables ['l be looking at variables in detail later, 
for now you can ignore them completely. 


2 Constant strings These are strings which are contained 
within the program text itself. For example, in the following 
program: 


10 PRINT “FRED” 


The string “FRED” is a constant, ie it is part of the program text 
and cannot be changed at RUN time. The descriptor for this type 
of string actually points to the text of the program itself. 


EXTENDING THE 
64'S BASIC PART4 


How long is a string? Or come to that, any other type of variable? In this 
month's article we look at string operations (with two new keywords) and 
variable storage (another new keyword). 





3 Temporary strings These are strings which are created as 
the program is running. For example, in the following program: 


10 LET A$="FRED" 
20 LET BS="BLOGS" 
30 PRINT A$+B$ 


Line 30 has to create the temporary string “FRED BLOGGS" so 
that it can be printed. The string is only temporary because when 
the PRINT routine has finished, it is no longer needed and can 

be ‘forgotten about. Strings like this have to be stored somewhere 
whilst they are being manipulated, and an area of memory called 
the ‘string storage space’ is used. This area (which will be 
describing in detail later) is accessed via a pointer called 
FRETOP. FRETOP points to the bottom of the string storage area, 
ie where the next temporary string will be stored. (String storage 
space grows downwards from high memory — usually address 
SOFFF). 

When a temporary string is created, it is copied into string 
space starting at the current FRETOP location. FRETOP is then 
moved down just below it so that another string can be stored. 
When the routine which created the temporary string no longer 
needs it, FRETOP is simply moved back above it again making 


‘the space available for another string. (This is called de-allocating 


a temporary string.) 

In this way the most efficient use is made of the string storage 
space — a temporary strings are only stored there for as long as 
they are needed. 


THE TEMPORARY STRING STACK 


There is another feature of temporary strings that you need to 
know about, that is the ‘temporary string stack’. To see why a 
string stack is needed (and how it is used) have a look at the 
following program: 


lO LEP AS] FRED’ 

20 LET B3="JOHN" 

30 LED Cg= "SID" 

40 PRINT MID$(A$+B$+LEFT$(C$,2),3,7) 


There's a lot of string processing to be done in line 40 — far too 
much to be tackled all in one go. Complex expressions like this 
have to be evaluated in simple stages and ‘built up’ a bit at a 
time. 

First the temporary string A$+B$ is evaluated and stored in 
string space. The descriptor for this string must be saved for use 
later and so it is ‘pushed’ onto the temporary string stack. 

The second temporary string, LEFT$(C$,2), is then evaluated 
and stored in string space (just below the A$+B$ string as it 
happens). The descriptor for this string is also ‘pushed’ onto the 
temporary string stack. (There are now two descriptors on the 
stack.) 

These two descriptors are then ‘popped’ off the stack and used 


A A SSS SRN NAAR AAA A A al ak sili icanicoaas 


COMPUTING TODAY AUGUST 1984 


67 


in evaluating the third temporary string, MID$(A$+B$+LEFT$ 
(C$,2),3,7). The first two temporary strings, which are no longer 
needed, are then de-allocated (FRETOP is moved back above 
them) and the third temporary string is copied into string space 
(over the top of the other two). The descriptor for this string is then 
‘pushed’ onto the string stack. (It is now the only string on the 
stack). The expression has now been completely evaluated 
(because there are no more ‘operators’ to be dealt with), so this 
string is returned as the evaluated result: the PRINT routine can 
now print this string, de-allocate it and then return control to the 
Interpreter. 

You can see that a temporary string stack is essential when 
evaluating this type of expression. It is used to store the descriptors 
to the various temporary strings which are produced. On the 
Commodore 64 this stack is three ‘slots’ long (nine bytes) and it is 
located at addresses $0019 to $0021 ($0019 is the ‘top’ of the 
stack). If a string expression generates more than three temporary 
strings (which must all be kept at the same time) then a 
FORMULA TOO COMPLEX error will be given. 


DEALING WITH STRING EXPRESSIONS 


Evaluating string expressions is no more difficult than evaluating 
numeric expressions — you simply use a different set of ROM 
routines. To completely extract a string parameter, however, you 
need to call two separate ROM routines. The first of these, called 
EXPR, evaluates the string parameter and retums a descriptor to 
the evaluated string in FPA]. The second routine, called 
GETSTG, recovers the descriptor from FPA] and checks to see if 
it is a temporary string. Ifit is, then GETSTG de-allocates it (by 
moving FRETOP above it). 

The EXPR routine (EXPRession evaluations) at address $AD9E, 
is actually the main expression evaluation subroutine. (Strings 
don't have a separate ‘entry point’ like INCBYT, INCINT and 
NUMEXP.) 

EXPR evaluates the expression (numeric or string) pointed 
to by TXTPTR (TXTPTR is NOT incremented first). If the expression 
found is a string then EXPR returns a descriptor to the string in 
FPA]. (Length in $61, and address in $62/$63, with the low byte 
‘in $62). If the expression found is numeric, EXPR simply returns a 
floating point number in FPA]. 

EXPR leaves TXTPTR pointing to the delimiter character at 
the end of the expression and modifies all the registers. Although 
it looks as though EXPR has completely extracted the string 
parameter, there are two important points which need clarifying. 
Firstly, we must check to ensure that a string expression was found 
(rather than a numeric one). And secondly, we need to find out 
whether the string is a temporary one, in which case it will have to 
be de-allocated when we have finished with it. 

GETSTG (GET a STrinG), at address $B6A3, performs both 
of these functions for us. Firstly, it checks to ensure that the 
expression just evaluated produced a string result (a TYPE 
MISMATCH error is given if not). Next, the string length is loaded 
into the X/Y registers (high byte in Y, low byte in X). This address 
is also loaded into locations $22/$23 (high byte in $23, low byte 
in $22). More importantly, GETSTG checks the string address to 
see if it is a temporary string. If it is then GETSTG de-allocates it 
by moving FRETOP above it. 

Now it may seem strange to you that we should de-allocate 
the string as soon as it has been evaluated. However, the string 
still exists and the descriptor still points to it — all we have done is 
to‘remove’ it from string space. Of course, if another temporary 
string were to be created it would overwrite the current one. The 
only way this can happen though is if you call EXPR before you 
have finished dealing with the current string! 


OTHER STRING OPERATIONS 


If the string parameter came from a statement keyboard then the 
string descriptor in A and X/Y is all you need to carry out 
whatever action you had in mind. If the keyboard is a function 
keyword however, a value will have to be returned. Some string 
functions, like LEN(string$), return numeric results. Others, like 
LEFT$(strings$, number), return string results. Those functions that 
return numeric results usually return a floating point number in 
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Hh iaahihaahibadhihihedehidehihidebidehibidihibede 
‘ INSTRING KEYWORD 

1e VERSION 1.8 -- 13/01/84 

i. COPYRIGHT <C> A.L.CROSS 1984 # 
“GHHnennnentnonenentneenngernnenns 


| 
¥=SC4ES 
! 


1 
'VARIABLES AND EQUATES 
1 


TSTOPB 


cunnenntnunntnnna 


! 
INSTR a 'CHECK FUNCTION FLAG 


INSTOK !CHECK STACK SPACE 
1'CHECK BRACKET 
IGET STRINGI$ 


ISAYE LENGTH BYTE 
ISRAVE CURRENT END OF 


ISTRING SPACE POINTER 
ISAVE LOW ADDS BYTE 
‘UPDATE END OF 

'SAVE HIGH ADDS BYTE 
ISTRING SPACE POINTER 
'CHECK COMMA 

'GET STRINGES 


ISAVYE LENGTH BYTE 
‘RESTORE OLD END OF 


ISTRING SPACE POINTER 


ICHECK BRACKET 
'GET LEN<STRINGI$) 


SUB LENCSTRING2$ > 
'IF STRING2$>STRINGIF 


C COUNT 'INIT LENGTH COUNT 

% #201 'INIT POSITION COUNT 

OUTRLE #29 'INIT POSITION INDEX 

MAINLE H <ADDS1).¥ ISTRINGI$ CHAR 

4F <ADDS2).'7 (EQUAL TO STRING2S 

NOTEOL 
, ‘NEXT CHARACTER 

CP LEN2 'END OF STPINGZ$? 

STGFND 


|'REPEAT 

'INC POSITION COUNT 

EC COUNT 'DEC CHARACTER: COUNT 
'IF AT END OF STRINGIS 
'INC STRINGI$ ADDS 
IPOINTER 


C 
CS MAINLP 


NOTEGL 


SEC 

BCS OUTRLF 

STGFND TAA 'GET CHARACTER FOS 

‘INTO Are’ PAIR 

RTNEMD 

SCS1B3 

27 -ABGE MOTIM 

54 42 


ICONVERT TO FPN 
ISET AY TO ZERO 


SEC 
BCS FTNEND 


Listing 1. The INSTR keyword. 





FPA], and those functions that retum string results return a string 
descriptor in FPA]. (Length in $61 and address in $62/$63, with 
the low byte in $62). 

Returning a numeric result is fairly straightforward and I don't 
expect you will have any problems. However, there are a couple 
of ROM routines that might be of use in this area. 

ASCII (return an ASCII value), at address $78B, first calls 
GETSTG to ‘sort out’ the evaluated string. It then loads FPA] with 
the ASCII value of the first character in the string (in floating point 
format). If the string was null (a length of zero) then an ILLEGAL 
QUANTITY error will be given. All the registers are modified by a 
call to this routine. 

VALUE (retums the string VALUE), at address $B7AD, also 
calls GETSTG first, to ‘sort out’ the evaluated string. It then loads 
FPA] with the value of the string (in floating point format), up to 
the first non-numeric character. All the registers are modified by a 
call to this routine. 

Returning a string result is a little bit more difficult however, 
because the string itself has to be stored somewhere in memory. 
The obvious place to use is the string storage area used for 
temporary strings — there are a number of ROM routines to help 
you do this. 

STRSPC (allocate STRing SPaCe) at address $B47D, 


allocates space in the string storage area. The number of bytes to 
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be allocated is specified in the A register on entry. STRSPC 
returns with the address of the first byte in the X/Y registers (high 
byte in Y, low byte in X) and the length in the A register. These 
values are also in FPA] (length in $6] and address in $62/$63, 
with the low byte in $62). 

MOVSTG (MOVe a STrinG) at address $B688, moves a 
string into the last allocated area. The address of the string to be 
moved is specified in the X/Y registers (high byte in Y, low byte in 
X) and the string length is specified in the A register. The A and Y 
registers are modified by MOVSTG but the X register is not. 

STGPTR (set up the STrinG PoinTeRs) at address $B4CA, 
sets up the temporary string stack and assembles the string 
descriptor in FPA] for the string described in locations 
$6 1/$62/$63. (Length in $61 and address in $62/$63, with the 
low byte in $62). All the registers are modified by STGPTR. 

CVTSTG (ConVerT to STrinG), at address $BDDD, converts a 
floating point number in FPA] to string. On return, the A/Y 
registers contain the address of the string (high byte in Y, low byte 
in A). The string will be terminated by a null byte and all the 
registers are modified. 


NEW KEYBOARD ROUTINES 


There are two new keyboard routines in this section, INSTR and 
MULTS. Both are function keywords but INSTR retums a numeric 
result, whilst MULT$ returns a string result. 


INSTR(string] $, string2$) 


INSTR searches ‘string1$' to see if it contains ‘string2$’. If'string2$’ 
is contained within ‘string]$' then the position of the first character 
of ‘string2$’ is retumed. If'string2$' is not contained within 
‘string]$’, a zero result is retuned. For example: 


PRINT INSTR(“FRED","RED") will print the value 2. 

PRINT INSTR(“FRED”,”ED") will print the value 3. 

PRINT INSTR("FRED","FED”") will print the value 0. 

PRINT INSTR("FRED","FREDA”) will also print the value 0. 


MULT$(length, string$) 


MULTS returns a string of length ‘length’ characters which 
contains only the first character of ‘strings$’. For example: 


‘HHAHAARAABHARRHBHHHABABHHHRH HRS 
; MULTS KE'YNORD : 

VERSION 1.8 -~ 161/84 : 
'# COPYRIGHT <C) A.L.CROSS 1984 : 
! ’ 


| HHHSHHAHRRRHS ERR HHRHS HSA HS HHH SH 


! 
#=$C052C 

| 

! 


VARIABLES AND EQUATES 
i 


TSTOPE 
TSTCLE 


| 
MULT CPx #: 'TEST FUNCTION FLAG 


‘ ISYNTAA ERROR 
MUL TOK A #301 ICHECK STACK SPACE 


: ICHECK BRACKET 
JSR GETBYT 'GET LENGTH 


ISAYE LENGTH 
Sr TSTCOM 'CHECK COMMA 


'GET CHARACTER 
SAVE CHAR LENGTH 
CHECK BRACKET 
'RESTORE LENGTH 
> 2a; DEF Jsk STRSFC ‘ALLOCATE STRING SPACE 
CSS2 AA alk ISTRING LENGTH 
C353 AGG LD’ s 'INITIALISE INDEX 
'TEST CHAR LENGTH 
CHAR CE A A $22),' 'GET CHARACTER 
COF'YLP S ($62), ICOP'’ STRING 


NE COPYLE 
| STGPTR ISET STRING POINTERS 


Listing 2. The MULT$ keyword. 
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PRINT MULT$(3,"FRED") will Print ‘FFF’. 

PRINT MULT$(5,"$#") will Print '$$$$$’. 

PRINT MULT$(4,"*") will Print '****’, 

PRINT MULT$(0,"DICK”) will print the null string. 


THE INSTR KEYWORD 


The full listing for INSTR is given in Listing 1. Since you've seen 
most of the ‘standard’ techniques before I'll just stick to describing 
the new ones. 

The ‘string]$’ parameter is extracted first, by calling EXPR and 
GETSTG. The length and address bytes (in A and X/Y) are saved 
in the variables LEN] and ADDS}. 

As | mentioned earlier, if'string] $’ was a temporary string, 
GETSTG will have de-allocated it (by moving FRETOP back 
above it). If we were to now call EXPR again to extract 'string2$’, it 
would overwrite ‘string! $' in the string storage area. 

It's fairly easy to get round this problem by a ‘crafty’ 
manipulation of the FRETOP pointer. First of all, the current value 
of FRETOP is saved on the stack (so that we can put it back later). 
The string address for ‘string] $ (in the X/Y registers) is then loaded 
into FRETOP (this was the FRETOP address before 
de-allocation of ‘string]$’). It is now safe to extract ‘string2$’ 
without it overwriting ‘string] $’ (because we have effectively re- 
allocated ‘string] $’). 

After extracting ‘string2$' (by calling EXPR and GETSTG) the 
length byte is saved in the variable LENZ. (The string address can 
be left in locations $22/$23). Because GETSTG has de-allocated 
‘string2$’, FRETOP is currently pointing to the bottom of string] $’. 
By restoring the original value of FRETOP from the values on the 
stack we can ‘manually’ de- allocate ‘string] $', leaving the string 
storage area area clear. 

Having extracted the two string parameters, checking to see if 
‘string]$' contains ‘string2$’ is fairly straight forward. It's simply a 
case of successively checking each character of'string] $’ against 
each character of ‘string2$’. If all the characters of ‘string2$' 
haved been checked and ‘passed’, then "string2$’ is 
contained within ‘string]$’. On the other hand, if all the 
characters of ‘string]$' have been checked and a perfect match 
has not been found, then ‘string2$ is NOT contained within 
‘string] $’. 

During the comparison process, the X register is used as a 
pointer to the current start character in ‘string] $’. If a match is 
found, then the value in the X register is returned in floating point 
format in FPA]. (By copying it into the Y register, loading the A 
register with O, and calling CVTFPN.) However, if a match cannot 
be found, or if’string2$' is longer than ‘string]$, then a value of O 
is retumed in FPA] — by loading both the A and Y registers with 
O and calling CVTFPN. 


THE MULT$ KEYWORD 


The full listing for MULTS$ is given in Listing 2 and, as with INSTR, 
I'll stick to describing the important points. 

The two parameters are extracted using routines you have 
seen before — GETBYT for the ‘length’ and EXPR/GETSTG for 
the ‘string’. The ‘length’ parameter is then used to allocate space 
in the string storage area (where the string result will be 
‘assembled’. This is done by loading the A register with the 
‘length’ parameter and calling STRSPC. 

The result string is then ‘assembled’ by writing the first 
character of the ‘string’ parameter (pointed to by location $22) 
throughout the allocated area (pointed to by location $62). The 
only exception to this occurs when the ‘length’ is zero, in this case 
a null byte is written throughout the allocated area (to ensure that 
a null string is returned). 

All that remains is to set up a descriptor for the result string in 
FPA] (and on the temporary string stack). This is done by simply 
calling the STRPTR routine (because locations $61/$62/$63 still 
hold the result string pointers written there by the STRSPC routine). 


VARIABLES — THE BASIC TRUTH 


You might have noticed that up till now I have deliberately 
avoided mentioning BASIC’s variables (except in passing). This 
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has not been because there is anything difficult about using 
variables but rather because they are so easy to use! The 
expression evaluation subroutine (that we have been using to 
extract all the parameters) deals with variables for us. If it comes 
across a variable name in an expression then it ‘automatically’ 
gets the value of the variable and uses it in the expression. In 
addition, it checks that the variable type is valid for the current 
expression and gives a TYPE MISMATCH enror if not. 

As you can see, using variables in keyword parameters is 
very simple indeed — so simple in fact, that they are completely 
transparent! However, there may be occasions when you want to 
access the value in a variable directly, or perform some ‘block 
process’ on a particular group of variables. For these reasons and 
to complete the picture of how BASIC works, I am going to spend 


the rest of this month looking at BASIC’s variables. 


STORING VARIABLES 


There are three types of variable used by BASIC; 


@ Numeric variables 
@ String variables 
@ Anay variables 


Each of these variable types are stored in a separate area in 
memory. Figure 1 shows the general layout of these areas. 

The main variable storage area begins immediately after the 
end of the program and, since the program length can vary, this 
location is pointed to by a two byte pointer called VARTAB. 
VARTAB is located at address $2D/$2E and it points to the first 
byte of the main variable storage area. 

The array variable storage begins immediately after the main 
variable area. The beginning of this area (and the end of the 
main variable storage area) is pointed to by a two byte pointer 
called ARYTAB. ARYTAB is located at address $2F/$30 and it 
points to the first byte of the array storage area. 

To indicate the end of the array storage area there is a second 
pointer called STREND, located at address $31/$32. STREND 
points to the end of the array storage area +1. 

The string variable storage area is also the temporary string 
storage space that I mentioned earlier. This area'begins at 


the highest address available 
to BASIC (usually $9FFF) and 
it is pointed to by a two byte 
pointer called MEMSIZ which 
is located at address $37/$38. 
String space ‘grows downward 
and the lowest address of string 
space is pointed to by a 
pointer called FRETOP (which 
we met earlier). FRETOP, 
located at address $33/$34, 
points to the last byte of the 
string area —1. 


NUMERIC 
VARIABLES 


There are two types of numeric 
variable, integers (two bytes 
long) and floating point (five 
bytes long). Let's begin by 
looking at floating point 
variables. 

Each floating point variable 
is stored in a seven byte ‘slot 
— two bytes for the variable 
name and five bytes for the 
floating point value. Figure 2 
shows the general layout of a 
typical floating point variable. 

The variable name for 
floating point variables is 
stored in straight ASCII format. 
For example, the variable 
name AB will be stored as 


BASIC ROM 


MEMSIZ 


STRING 
STORAGE 
AREA 


ARRAY 
VARIABLES 


‘ORDINARY’ 
VARIABLES 


VARTAB 





PROGRAM TEXT 


Fig. 1 Variable storage 
areas. 


$41 $42 and the variable name A will be stored as $41 $00. 

Integer variables are stored in the same seven byte 'slot - they 
just don’t use some of the bytes. Each integer variable uses two 
bytes for the variable name and two bytes for the integer value. 
The remaining three bytes are not used and are set to zero. Figure 
3 shows the layout of a typical integer variable. 

The variable name for integer variables is stored in ASCII 
format with the high bit of both bytes set (1). (This is done to 
distinguish between floating point and integer variables.) For 
example, the variable name AB% will be stored as $C1 $C2 and 
the variable name A% will be stored as $C1 $80. 


STRING VARIABLES 


I mentioned earlier that BASIC uses a two part storage method for 
strings (the string itself and a string descriptor). Not surprisingly, 
string variables are stored in exactly the same way. The text of 
string variables is stored in the string storage area and the 
descriptors for these strings are stored in the main variable 
storage area. The descriptors are stored using the same seven 
byte ‘slot’ used by numeric variables. String variables use two 
bytes for the variable name and three bytes for the string 
descriptor (the last two bytes are not used and are set to zero). 
Figure 4 shows the layout of a typical string variable . 

The variable name for string variables is stored in ASCII format 
with the high bit of the second byte set (1). For example, the 
variable name AB$ will be stored as $41 $C2, and the variable 
name A$ will be stored as $41 $80. 


STRING GARBAGE COLLECTION 


Unfortunately there is a major problem with this method of string 
variable storage. This is best illustrated by running the following 
short program: 

18 DIM AS$ (280) 

28 FOR C=l1 TO 189 

36 FOR S=l TO 200 

46 AS(S)=AS$(S)+"A" 

5@ NEXT S 

68 PRINT “LOOP NUMBER";C 

78 NEXT C 


EXPON 
Abe sd MANTISSA 


VARIABLE 


FLOATING POINT VALUE 
NAME 


Fig. 2 Floating point variable storage. 


HIGH LOW 
BYTE BYTE 


CaBwe tn oS 


VARIABLE NAME 





INTEGER VALUE 


Fig. 3 Integer variable storage. 


ADDRESS 


LOW HIGH 
LENGTH BYTE BYTE 





VARIABLE NAME 


STRING DESCRIPTOR 


Fig. 4 String variable storage. 
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each time round the outer loop (the FOR C=1 to 189 loop). The 
reason for this increasing delay is to do with the way BASIC stores 
its string variables. 

When the contents of an existing string variable are changed, 
BASIC doesn't overwrite the old string in the string space area 
because the length may have changed. Instead it adds the new 
string to the bottom of the string space area and changes the 


variable descriptor to point to this new string. The old string is now 


redundant but it is still stored in the string space area If many 
variables are changed, then the string space area will 
eventually grow so large that it will fill all the available memory. 

When this happens, the Interpreter calls a special routine 
which runs through the string space area and removes all 
redundant strings. All the ‘good’ strings are then re-distributed to 
pack them tightly together. This routine, which is located at 
address $B526, is called GARBAG (string GARBAGe collection). 
GARBAG is a fairly long and slow routine and it can introduce 
some long delays. 

For example, if there is a large amount of free memory or if the 
program modifies a lot of string variables, then GARBAG will 
introduce noticable delays into the execution time. 


ARRAY |ELEMENT/ELEMENT|ELEMENT|ELEMENT ELEMENT 
HEADER 0 1 2 3 ‘N’ 


Fig. 5 Array element storage. 





OFFSET TO 
NEXT ARRAY 
i 


‘SPARE’ BYTES 


Nees peed 
NUMBER OF 


VARIABLE DIMENSION 
NAME BYTE ELEMENTS 


Fig. 6 header for one-dimensional array. 


NUMBER OF 

OFFSET TO ELEMENTS IN 
NEXT ARRAY 2nd DIMENSION 
i, (Ce, 


ek 


pe 
VARIABLE DIMENSION NUMBER OF ‘SPARE’ BYTES 
NAME BYTE ELEMENTS IN 


1st DIMENSION 
Fig. 7 Header for two-dimensional array. 
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The short program I showed you earlier is designed to modify 
lots of variables (each time round the FOR S=1 to 200 loop, 200 
new strings are added) and to use most of the available memory 
(200 strings * 189 bytes per string requires over 36K of memory). 
This creates the ‘worst of both worlds’, eventually reaching the 
situation where garbage collection is being done every time a 
new string is added. This is why the program takes nearly an hour 
to run!!! 

Unfortunately, there isn't a lot you can do about garbage 
collection, although reducing the amount of memory available for 
string storage (by lowering MEMSIZ) will make GARBAG run 
taster (but more often!). 

The FRE(Q) keyword in BASIC ‘forces’ garbage collection to 
take place, so it can be included in programs to make garbage 
collection occur in places where you can afford the time taken. 
This can help to prevent it occurring during time critical periods. 


ARRAY VARIABLES 


The ‘ordinary'variables that we have just looked at shared a 
common seven byte storage ‘slot’. Although this makes everything 
nice and neat, it does waste a lot of memory (three bytes per 
variable and two bytes per string variable). If array elements were 
to be stored using this common ‘slot’ size then the ‘wastage’ would 
be even greater (especially with large arrays). For this reason 
array elements are ‘packed’ much tighter so that no space is 
wasted. 

Arrays are stored using a two part method: 


@ Anarray header (which describes the array) 
@ The array elements (which contain the data) 


The elements of an array are stored sequentially after the header. 
Figure 5 shows this arrangement, where ‘N' corresponds to the 
dimension of the array. 

The array elements use the smallest amount of space required 
for each variable type — ie integers use two bytes per element, 
strings use three bytes per element and floating point numbers 
use five bytes per element. 

The length of the header depends on the array being defined, 
so let's have a look at how the array header is organised. Figure 6 
shows a typical one dimension array header. 

The ‘array variable’ name is stored in ASCII format with the 
high bits set or reset according to the variable type. The ‘offset to 
the next array is used by the Interpreter when searching for array 
variables. 

The ‘dimension byte’ specifies the number of dimensions in the 
array. For example, if a DIM A (23) statement had been executed 
then the dimension byte would be $01. Similarly, if a DIM 
A(23,14) statement had been executed then the dimension byte 
would be $02. 

The ‘number of elements bytes’ specify the number of 
elements in the array. This value is always one greater than the 
number specified in the DIM statement as the array elements 
count from O. For example, a DIM A(12) statement will create 13 
elements (numbered 0-12). The ‘number of elements bytes’ for this 


array will be $00 $00 (ie 13). 
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The area marked ‘spare bytes’ is used for the additional 
information needed in a multi-dimensional array. Figure 7 shows 
a typical two dimension array header. 

As you can see, this header has two additional bytes 
specifying the number of elements in the second dimension. A 
three dimension array header would have two more bytes 
specifying the number of elements in the third byte and so on. 


DIRECT ACCESS TO VARIABLES 


Fortunately, it is not necessary to know exactly how the different 
types of variable are stored in order to access them directly. The 
ROM routine which ‘reads’ the variables can cope with all types 
‘automatically’. The routine in question is called FNDVAR (FiND a 
VARiable) and it is located at address $BO8B. 

FNDVAR reads the variable name being pointed to by 
TXTPTR and retums a pointer to the contents of the variable 
found. In the case of numeric variables this is the number itself 
and in the case of string variables it is the string descriptor. 

Aslam sure you know, BASIC variable names can be any 
length you like but only the first two characters are significant. 
FNDVAR actually reads all characters from the TXTPTR location 
up to the first’non-numeric’ and ‘non-alphabetic’ character but 
only the first two characters are ‘saved’ as a variable name. If the 
‘non-numeric’ and‘non-alphabetic’ character that FNDVAR 
stopped at is either’$' or'%’, then TXTPTR will be left pointing to 
the first non-space character after the '$’ or'%'. However, if this 
character is not ‘$’ or'%' then TXTPTR will be left pointing at the 
character. All the registers are modified by FNDVAR. 

On entry to FNDVAR the variable INTARY (at address $10) 
must contain either $00 or $FF. If integers and arrays are allowed 
then INTARY must contain $00, and if integers and arrays are not 
allowed it must contain $FF. 

If integers are not allowed (INTARY = $FF) and an integer 
variable is found, then a SYNTAX error will be given. If arrays are 
not allowed (INTARY = $FF) and an array variable is found, then 
a pointer to the ‘ordinary’ variable of the same name will be 
returned. For example, if the variable B(13) is found and arrays 
are not allowed, then a pointer to the variable B will be returned. 
In this case, TXTPTR will be left pointing to the ‘(’ character after 
the variable name causing a SYNTAX error by the next character 
checking or end of statement routine. 

On leaving FNDVAR, the variable TYPE (at address $0D) will 
contain either $00 or $FF. If a numeric variable was found then 
TYPE will contain $00; if a string variable was found then TYPE 
will contain $FF. If type is numeric ($00) then the variable 
NUMTYP (at address $0E) will contain either $00 or $80. If an 
integer variable was found then NUMTYP will contain $80; if a 
floating point variable was found then NUMTYP will contain $00. 


If TYPE is string ($FF) then the contents of NUMTYP are undefined. 


Also on leaving FNDVAR, the A/Y registers will contain the 
address of the variable found (high byte in Y, low byte in A). This 
address is also returned in locations $47/$48 (high byte in $48, 
low byte in $47). This address points to the exponent byte of a 
floating point number, the high byte of an integer number or the 
length byte of a string descriptor. 

In other words, on leaving FNDVAR you only need to 
interrogate TYPE (and perhaps NUMTYP) to find out what type of 
variable was found, and then read the value of the variable from 
the location pointed to by the A/Y registers (or location $47/$48). 


ANOTHER NEW KEYWORD 


This month's third keyword, SWAP, is particularly useful for 
sorting operations — especially when sorting strings. 


SWAP varl,var2 


SWAP simply exchanges the contents of two variables of the 
same type. For example, if A=23 and B=16, then after a SWAP 
A.B statement has been executed, A will contain 16 and B will 
contain 23. 

The two variables (varl and var2) can be of valid type — 
numeric, string or array — but they must be of the same type or 
a TYPE MISMATCH error will be given. 


18 @33C ‘HHHRHHHHHHHHHHHSHHRRH HARKS HSH EHS 
26 GSC '# 
3 '# SWAP FEYNWORD 


‘8 

'# VERSION 1.8 -- 16°01,°54 

{# COPYRIGHT <C> A.L.CROSS 19384 # 
\# 


| HHHRARHBHHRH HHH HH HHH HHH Ra RHR He HE 
t 
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IVARIABLES AND EQUATES 
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TSTCOM 
ERRORS 
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VART YP 
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CS7B S4FC ST VLADDS+1 
CS7D ASD A TYPE ISAVE VARIABLE TYPE 
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ICHECK STATEMENT FLAG 


ISYHTAS ERROR 
I'CHECK STACK SPACE 


(ALLOW INTMARRAY'S 
'GET 1ST VARIABLE 
'SAYE VARIABLE ADDRESS 


(AND HUMBER TYPE 


CHECK FOR COMMA 
!1GET 2HND WARIABLE 
ICOMPARE TYPES 


TYPMIS #816 TYPE MISMATCH 
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INOVE STRING 
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CVIADDS>. 7 'TO VAR 1 
1FROM THE STACK 
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= 
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DEX 
BNE COPYLP 
RTS 


(FINISHED 


Listing 3. The SWAP command. 





The full listing for SWAP is given in Listing 3 and as with 
previous keywords, I'm going to stick to describing the new parts. 
Having checked that SWAP has been called ‘legally’ and 
confirmed that there is sufficient stack space, the first task is to 
allow integers and arrays by loading INTARY with $00. A pointer 
to‘varl’ can then be obtained by calling FNDVAR. The variable 
address (in the A/Y registers) is saved in V1ADDS and the 
contents of TYPE ($0D) and NMTYPE ($0E) are saved in VARTYP 
and NUMTYP respectively. 

After checking for the comma separator the ‘var2’ pointer is 
obtained (again by calling FNDVAR). The value of TYPE retumed 
by ‘var2' is compared with VARTYP (TYPE for'varl’): if they are 
not equal then a TYPE MISMATCH error is given. 

If the variable types are both string (TYPE = $FF) then the X 
register is loaded with $03 (move three bytes). If, however, the 
variable types are numeric (TYPE = $00) then the value of 
NMTYPE returmed by ‘var2’ is compared with NUMTYP for 


‘varl’). If they are not equal, a TYPE MISMATCH error is given. 


If the number types are both integer (NMTYPE = $80) then the 
X register is loaded with $02 (move two bytes). If the number 
types are both floating point ($00) then the X register is loaded 
with $05 (move five bytes). The final part of the SWAP routine is 
the copying loop itself. This loop copies the number of bytes 
specified in the X register from the V1 ADDS location (‘varl’ 
contents) to the V2ADDS location (‘var2’ contents) via the stack. 


NEXT MONTH 


Next month's installment will be the final part of this series. In it [ll 
be describing the more ‘obscure’ ROM routines - including some 
examples of their use. And as you've come to expect by = 


keyword routines. 
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ACCOUNTS 


ACTPAK 

Solicitor Systems and Services, 
Systems House, 

127 High Street, 

Beckenham, 

Kent BR3 1AG 

Phone 01-658 3937 and 3938 
Contact: Mr. W, Freeman 

Price: £1500 (includes three days 
on-site training). 


AUTOMATIC INVOICING 
Bromley Computer Consultancy, 
244a High Street, 

Bromley, 

Kent BR1 1PQ 

Phone: 01-697 8933 

Telex: 896691 

Contact: Mr. A. Berridge 

Price: £1000 


BETPLAN 

Bromley Computer Consultancy, 
244a High Street, 

Bromley, 

Kent BR1 1PQ 

Phone: 01-697 8933 

Telex: 896691 

Contact: Mr. A. Berridge 

Price: £2000 


BILLFLOW 

Great Northern Computer 
Services Ltd, 

16 Town Street, 

Horsforth, 

Leeds LS18 4RJ 

Phone: 0532 589980 
Contact: Sally Bagnal or Paul 
Rayner 

Price: £395 


BOSS PAYPLAN 

Bromley Computer Consultancy, 
244a High Street, 

Bromley, 

Kent BR1 1PQ 

Phone: 01-697 8933 

Telex: 896691 

Contact: Mr. A. Berridge 

Price: £1000 


CP/M 
SOFTWARE 


DIRECTORY 


BOSS-PAY ROLL 


Bromley Computer Consultancy, 
244a High Street, 

Bromley, 

Kent BR1 1PQ 

Phone: 01-697 8933 

Telex: 896691 

Contact: Mr. A. Berridge 

Price: £500 


BUSINESS DESK 

Paxton Computers Ltd, 

28 New Street, 

St. Neots, 

Huntingdon, 
Cambridgeshire PE19 1AJ 
Phone: 0480 213785 
Telex: 32720 

Contact: Jayson Brown 
Price: From £595 to £2000 


COSTING LEDGERS- 
BUSINESS MANAGEMENT 
SYSTEMS 

Peachtree Software International, 
43-53 Moorbridge Road, 
Maidenhead, 

Berkshire 

Phone: 0628 32711 

Contact: Sales Manager 

Price: £600 


EXACT 

Bickerton Computer Centre, 
38a Abbey Foregate, 
Shrewsbury, 

Shropshire SY2 6BL 

Phone: 0743 68167 
Contact: Richard Bickerton 
Price: £750 


GENERAL LEDGER SYSTEM 


Interface Micro Systems, 
160 High Street, 
Southend-on-Sea, 

Essex SS1 1JX 

Phone: 0702 69961 
Contact: Terry Willingham 
Price: £350 





INTERACC 

Software Aids International Ltd, 
16 Norval Road, 

North Wembley, 

Middlesex HAO 3TE 

Phone: 01-904 8139 

Contact: Mr. D.V. Bull 

Price: From £200 


INVENTORY MANAGEMENT — 
BUSINESS MANAGEMENT 
SYSTEMS 


Peachtree Software International, 
43-53 Moorbridge Road, 
Maidenhead, 

Berkshire 

Phone: 0628 32711 

Contact: Sales Manager 

Price: £600 


ISL 


The Byte Shop (Birmingham) Ltd 
94-96 Hurst Street, 

Birmingham B5 4TD 

Phone: 021-622 3165 

Contact: Mr. Southern 

Price: £1100 


NOMINAL AND PURCHASE 
LEDGER 

Bickerton Computer Centre, 
38a Abbey Foregate, 
Shrewsbury, 

Shropshire SY2 6BL 

Phone: 0743 68167 

Contact: Richard Bickerton 
Price: £300 


NOMINAL LEDGER 


Compact Accounting Services Ltd 
Cape House, 

Cape PLace, 

Dorking, 

Surrey 

Phone: 0306 887373 

Contact: David Parson 

Price: £325 


NOMINAL LEDGER — 
BUSINESS MANAGEMENT 
SYSTEMS 


Peachtree Software International, 
43-53 Moorbridge Road, 
Maidenhead, 

Berkshire 

Phone: 0628 32711 

Contact: Sales Manager 

Price: £600 


PAYROLL 


Bickerton Computer Centre, 
38a Abbey Foregate, 
Shrewsbury, 

Shropshire SY2 6BL 

Phone: 0743 68167 
Contact: Richard Bickerton 
Price: £200 


PAYROLL 

Compact Accounting Services Ltd 
Cape House, 

Cape PLace, 

Dorking, 

Surrey 

Phone: 0306 887373 

Contact: David Parson 

Price: £425 


PAYROLL 

Dataflow (UK) Ltd, 
Unit 18, 

Central Trading Estate, 
Staines, 

Middlesex TW18 4UX 
Phone: 0784 54171 
Contact: Jane Rising 
Price: £500 


PAYROLL — BUSINESS 
MANAGEMENT SYSTEMS 


Peachtree Software International, 
43-53 Moorbridge Road, 
Maidenhead, 

Berkshire 

Phone: 0628 32711 

Contact: Sales Manager 

Price: £600 
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PURCHASE LEDGER 

Bromley Computer Consultancy, 
244a High Street, 

Bromley, 

Kent BR1 1PQ 

Phone: 01-697 8933 

Telex: 896691 

Contact: Mr. A, Berridge 

Price: £500 


PURCHASE LEDGER 

Compact Accounting Services Ltd 
Cape House, 

Cape PLace, 

Dorking, 

Surrey 

Phone: 0306 887373 

Contact: David Parson 

Price: £325 


PURCHASE LEDGER 
Dataflow (UK) Ltd, 
Unit 18, 

Central Trading Estate, 
Staines, 

Middlesex TW18 4UX 
Phone: 0784 54171 
Contact: Jane Rising 
Price: £500 


PURCHASE LEDGER — 
BUSINESS MANAGEMENT 
SYSYEMS 

Peachtree Software International, 
43-53 Moorbridge Road, 
Maidenhead, 

Berkshire 

Phone: 0628 32711 

Contact: Sales Manager 

Price: £600 


PURCHASE LEDGER SYSTEM 
Interface Micro Systems, 

160 High Street, 
Southend-on-Sea, 

Essex SS1 1JX 

Phone: 0702 69961 

Contact: Terry Willingham 
Price: £350 


SALES LEDGER — BUSINESS 
MANAGEMENT SYSTEMS 
Peachtree Software International, 
43-53 Moorbridge Road, 
Maidenhead, 

Berkshire 

Phone: 0628 32711 

Contact: Sales Manager 

Price: £600 


SALES LEDGER SYSTEM 
Interface Micro Systems, 
160 High Street, 
Southend-on-Sea, 

Essex SS1 1JX 

Phone: 0702 69961 
Contact: Terry Willingham 
Price: £350 


DATABASES 


BT -80 

This is a Digital Research product 
and should be available from most 
software suppliers. 


CARDBOX 

Caxton Software Publishing 
Company Ltd, 

10-14 Bedford Street, 
Covent Garden, 

London WC2E QHE 

Phone: 01-379 6502 
Contact: W.D. Barrow 
Price: £195 


CONDOR 
MOM Systems Ltd, 
40-41 Windmill Street, 


Gravesend, 

Kent DA12 1BA 

Phone: 0474 57746 
Telex: 965492 

Price: From £195 to £650 


DATAFLEX 

Equinox Computers, 

16 Anning Street, 

New Inn Yard, 

London EC2A 3HB 

Phone: 01-739 2387 

Telex: 27341 

Contact: Mike Kusmirak 
Price: Single-user £495, multi- 
user £595 


DATAFLOW 
Dataflow (UK) Ltd, 
Unit 18, 

Central Trading Estate, 
Staines, 

Middlesex TW18 4UX 
Phone: 0784 54171 
Contact: Jane Rising 


DATAFLOW 

Great Northern Computer 
Services Ltd, 

16 Town Street, 

Horsforth, 

Leeds LS18 4RJ 

Phone: 0532 589980 
Contact: Sally Bagnal or Paul 
Rayner 

Price: £185 


DATA MANAGEMENT SYSTEM 
Compsoft Ltd, 

Hallams Court, 

Shamley Green, 

Near Guidford, 

Near Guildford, 

Surrey 

Phone: 0483 898545 

Contact: Heather Kearsley, 

Price: £195 


MICROPEN 

Transam Microsystems Ltd, 
59-61 Theobalds Road, 
London WC1 

Phone: 01-404 4554 

Price: £125 


DATASTAR 

This is a MicroPro International 
product and should be available 
from most software suppliers. 


DATA STORE ONE SYSTEM 
Interface Micro Systems, 

160 High Street, 
Southend-on-Sea, 

Essex SS1 1JX 

Phone: 0702 69961 

Contact: Terry Willingham 
Price: £100 


dBASE II 

Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


dBASE il DATABASE 
MANAGEMENT SYSTEM 
Sussex Microsystems Ltd, 
43 East Street, 

Horsham, 

West Sussex 

Phone: 0403 68071 
Contact: Keith Gale 

Price: ‘‘under £500” 


FILEFORCE 
Transam Microsystems Ltd, 


59-61 Theobalds Road, 
London WC1 

Phone: 01-404 4554 
Price: £250 


GUARDIAN 

Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


MAILING ADDRESS 
Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


MAILING SYSTEM 
interface Micro Systems, 
160 High Street, 
Southend-on-Sea, 

Essex SS1 1JX 

Phone: 0702 69961 
Contact: Terry Willingham 
Price: £100 


MAILMASS 

Vision Associates Ltd, 

57 Woodham Lane, 

New Haw, 

Weybridge, 

Surrey, 

Phone: 0932 55932 
Contact: Graeme Sleeman 
Price: 


PRISM 

Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


TRENDISK/1c 
Microtrend UK, 

PO Box 51, 

Pateley Bridge, 

Harrogate, 

North Yorkshire HG3 5DF 
Phone: 0423 711878 
Contact: lan Cummings 
Price: £150 


GRAPHICS 


DISPLAY MANAGER 

This is a Digital Research product 
and should be available from most 
software suppliers, 


DATAPLOT liil 

Grafox Ltd, 

35 St. Clements, 

Oxford OX4 1AB 

Phone: 0865 242597 
Telex: 83147 

Contact: Geordie Herbert 
Price: £495 


DATAPLOT+ 

Grafox Ltd, 

35 St. Clements, 

Oxford OX4 1AB 

Phone: 0865 242597 
Telex: 83147 

Contact: Geordie Herbert 
Price: £195 


LANGUAGES 


ALGOL-60 

Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


APL V80 


Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


BAZIC 

Xitan Systems Ltd, 
23 Cumberland Place, 
Southampton, 
Hampshire SO1 2BB 
Phone: 0703 871211 
Telex: 47388 
Contact: Jane Dards 
Price: £124 


C-BASIC 

This is a Microsoft product and 
should be available from most 
software suppliers. 


CBASIC COMPILER 
Xitan Systems Ltd, 
23 Cumberland Place, 
Southampton, 
Hampshire SO1 2BB 
Phone: 0703 871211 
Telex: 47388 
Contact: Jane Dards 
Price: £333 


CIS COBOL 

Xitan Systems Ltd, 
23 Cumberland Place, 
Southampton, 
Hampshire SO1 2BB 
Phone: 0703 871211 
Telex: 47388 
Contact: Jane Dards 
Price: £425 


COBOL -80 

This is a Microsoft product and 
should be available from most 
software suppliers. 


COMAL 

Transam Microsystems Ltd, 
59-61 Theobalds Road, 
London WC1 

Phone: 01-404 4554 

Price: £145 


POLYFORTH 

Computer Solutions Ltd, 
Treway House, 

Hanworth Lane, 

Chertsey, 

Surrey KT16 9LA 

Phone: 093 28 65292 
Contact: Chris Stephens 
Price: From £750 to £2750 


FORTRAN-80 

This is a Microsoft product and 
should be available from most 
software suppliers. 


JRT PASCAL 

Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


KBASIC 

Lifeboat Associates Ltd,. 
PO Box 125, 

London WC2H SLU 
Phone: 01-836 9028 
Telex: 893709 


LISP-80 

Transam Microsystems Ltd, 
59-61 Theobalds Road, 
London WC1 

Phone: 01-404 4554 

Price: £50 
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M-BASIC 


This is a Microsoft product and 
should be available from most 
software suppliers. 


PASCAL/M 

Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


PASCAL/MT 

Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


PASCAL/MT+ 

Xitan Systems Ltd, 
23 Cumberland Place, 
Southampton, 
Hampshire SO1 2BB 
Phone: 0703 871211 
Telex: 47388 
Contact: Jane Dards 
Price: £233 


PASCAL/Z 

Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


PRO PASCAL 

Prospero Software, 

37 Gwendolen Avenue, 
London SW15 6EP 

Phone: 01-785 6848 
Contact: Tony Hetherington 
Price: £220 


PRO FORTRAN 

Prospero Software, 

37 Gwendolen Avenue, 
London SW15 6EP 

Phone: 01-785 6848 
Contact: Tony Hetherington 
Price: £220 


UCSD PASCAL 
Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


MODELLING 


CALCSTAR 

This is a MicroPro International 
product and should be available 
from most software suppliers. 


FASTPLAN 

Transam Microsystems Ltd, 
59-61 Theobalds Road, 
London WC1 

Phone: 01-404 4554 

Price: £395 


PEACHCALC 

Peachtree Software International, 
43-53 Moorbridge Road, 
Maidenhead, 

Berkshire 

Phone: 0628 32711 

Contact: Sales Manager 

Price: £200 
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PLAN80 

Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


SUPERCALC 

Tamsys Ltd, 

12a Sheet Street, 
Windsor, 

Berkshire SL4 1BG 
Phone: 075 35 56747 
Contact: David Atkinson 
Price: £129 


SUPERCALC | 

Xitan Systems Ltd, 
23 Cumberland Place, 
Southampton, 
Hampshire SO1 2BB 
Phone: 0703 871211 
Telex: 47388 
Contact: Jane Dards 
Price: £126 


SUPERCALC II 
Xitan Systems Ltd, 
23 Cumberland Place, 
Southampton, 
Hampshire SO1 2BB 
Phone: 0703 871211 
Telex: 47388 
Contact: Jane Dards 
Price: £195 


PROGRAMMING 


ACCESS MANAGER 

This is a Digital Research product 
and should be available from most 
software suppliers. 


ANIMATOR 

Xitan Systems Ltd, 
23 Cumberland Place, 
Southampton, 
Hampshire SO1 2BB 
Phone: 0703 871211 
Telex: 47388 
Contact: Jane Dards 
Price: From £225 


BASIC UTILITY DISK 
Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


BASKAM 

Great Northern Computer 
Services Ltd, 

16 Town Street, 

Horsforth, 

Leeds LS18 4RJ 

Phone: 0532 589980 
Contact: Sally Bagnal or Paul 
Rayner 

Price: £95 


COBOL DEVELOPMENT 
SYSTEM : 
Interface Micro Systems, 
160 High Street, 
Southend-on-Sea, 

Essex SS1 1JX 

Phone: 0702 69961 
Contact: Terry Willingham 
Price: Full system £550 


CLIP 

Tamsys Ltd, 

12a Sheet Street, 
Windsor, 

Berkshire SL4 1BG 
Phone: 075 35 56747 
Contact: David Atkinson 
Price: £95 


FORMS UTILITY GENERATOR 


Interface Micro Systems, 
160 High Street, 
Southend-on-Sea, 

Essex SS1 1JX 

Phone: 0702 69961 
Contact: Terry Willingham 
Price: £120 


PSORT 

Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


QSORT 

Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


SPP 

Xitan Systems Ltd, 
23 Cumberland Place, 
Southampton, 
Hampshire SO1 2BB 
Phone: 0703 871211 
Telex: 47388 
Contact: Jane Dards 
Price: £133 


T/MAKER Il 

Transam Microsystems Ltd, 
59-61 Theobalds Road, 
London WC1 

Phone: 01-404 4554 

Price: £165 


TRANSAM SCIENTIFIC 
SUBROUTINES 

Transam Microsystems Ltd, 
59-61 Theobalds Road, 
London WC1 

Phone: 01-404 4554 

Price: £495 


TYPESTAR 

Sussex Microsystems Ltd, 
43 East Street, 

Horsham, 

West Sussex 

Phone: 0403 68071 
Contact: Keith Gale 
Price: £95 


XLT86 

Xitan Systems Ltd, 
23 Cumberland Place, 
Southampton, 
Hampshire SO1 2BB 
Phone: 0703 871211 
Telex: 47388 
Contact: Jane Dards 
Price: £100 


WORD PROCESSING 


BENCHMARK 

Interface Micro Systems, 
160 High Street, 
Southend-on-Sea, 

Essex SS1 1JX 

Phone: 0702 69961 
Contact: Terry Willingham 


BRITISH SPELLGUARD 
Vision Associates Ltd, 

57 Woodham Lane, 

New Haw, 

Weybridge, 

Surrey, 

Phone: 0932 55932 
Contact: Graeme Sleeman 
Price: £179 


LETTERIGHT 


Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


LEXICOM/2 

Microtrend UK, 

PO Box 51, 

Pateley Bridge, 

Harrogate, 

North Yorkshire HG3 5DF 
Phone: 0423 711878 
Contact: lan Cummings 
Price: £350 


MAGIC WAND 

Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


MAILMERGE 

This is a MicroPro International 
product and should be available 
from most software suppliers. 


PEACHTEXT 

Peachtree Software International, 
43-53 Moorbridge Road, 
Maidenhead, 

Berkshire 

Phone: 0628 32711 

Contact: Sales Manager 

Price: £250 


SPELL 

Transam Microsystems Ltd, 
59-61 Theobalds Road, 
London WC1 

Phone: 01-404 4554 

Price: £55 


SPELLBINDER 

Transam Microsystems Ltd, 
59-61 Theobalds Road, 
London WC1 

Phone: 01-404 4554 

Price: £275 


SPELLING PROOFREADER 
Peachtree Software International, 
43-53 Moorbridge Road, 
Maidenhead, 

Berkshire 

Phone: 0628 32711 

Contact: Sales Manager 

Price: £600 


SPELLSTAR 

This is a MicroPro International 
product and should be available 
from most software suppliers. 


TEXTWRITER Ill 
Lifeboat Associates Ltd, 
PO Box 125, 

London WC2H 9LU 
Phone: 01-836 9028 
Telex: 893709 


WORD PROCESSING SYSTEM 
Interface Micro Systems, 

160 High Street, 
Southend-on-Sea, 

Essex SS1 1JX 

Phone: 0702 69961 

Contact: Terry Willingham 
Price: £100 


WORDSTAR 

This is a MicroPro International 
product and should be available 
from most software suppliers. 
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We use om 10% of 
our mental potentials 


These are the words of Albert Einstein, the 
greatest physicist of recent times. 

L. Ron Hubbard's discoveries in the field of 
the mind prove today that Einstein was right! 
In his book DIANETICS The Modern Science 
of Mental Health, L.Ron Hubbard takes one 
more giant step in this direction. He demons- 
trates how anyone can use his discoveries 
to rid himself of the barriers that have so far 
prevented him from using his mental potentials 
fully. More and more people from all walks af 
life including technicians, artists, G.P.s, scien- 
tists, workers and managers alike, use DIANE- 
TICS today. And the thousands of written 
reports on their success are the best proof for 
the quality of this book. Get your own copy 
today. 


BUY AND READ DIANETICS! 

by L. Ron Hubbard. 

Ask for it in your local bookshop, or order 
directly from: 


PREGPUS! 
DIANETICS Information Centre 
St Hill Manor, East Grinsted 
Sussex RH19 4ZB : 
Your copy of this 470 page book will fe 
be despatched by return of post. oy 


32 


a YES! Please send me....... copy(s) “* ihe os’ 
of the book DIANETICS: The Modern Science ™ wn 








of Mental Health at the price of 3.95 (incl. 8p) ; 
Find enclosed my LIJCheque LJP.O: A 
Name: : 
Address: 

CTO 







LUCAS LX 


MEMORY 64K RAM expandable to 256K 
LANGUAGE Microsoft BASIC 
CASSETTE 3000r 1200 baud 
DISC Single or twin 5% floppy disc drives 

DOS CP/M.,2.2 (supplied) or NAS-DOS 
KEYBOARD QWERTY@ “CURSO DWWNUMERIC QFUNCT & 
DISPLAY TV 


MONITOR@SUPPLIED 
INTERFACE PARA W ma y 


SERIAL GY BUS FY 
GRAPHICS BLOCK Y USER 
LINEO ~— RES 392 by 256 


COLOUR 8 TEXT 80 by 25 





Notes. The Lucas LX is a Z80A microcomputer aimed more at 
the professional and business user. Hence 5Mb Winchester 
disc interfacing is provided. Popular printers may be used 
with the RS232 serial interface, and a Centronics interface is 
also provided. There is an additional parallel interface 
connector for providing up to 16 on/off signals. The monitor 
supplied as standard is a 12” monochrome version: a colour 
monitor is also available. The high res colour graphics may be 
392 by 256 in eight colours, or 784 by 256 in two colours. A 
wide range of applications software is available via the CP/M 
operating system, including Wordstar, Supercalc, and 
Calcstar. 


NASCOM 3 


MEMORY 
LANGUAGE 
CASSETTE 


DISC 
KEYBOARD 
DISPLAY 
INTERFACE 
GRAPHICS 


489K RAM 14K ROM 
Microsoft BASIC 
300 or 1200 


DOS CP/M or NAS-DOS 


een Co » oe ee 0 

USER LY x wu 

RES 784 mB 256 (two colours) 
392 by 256 (four colours) 

COLOUR 8 TEXT 25 by 80 

optional 


PARA 
PARA 
LINEO 
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MICRODEALER 


Automated Business Equipment 
PLYMOUTH'’S 
DEALER” SOCOM 












COMMODORE 720 


MEMORY 256K 20K ROM 
LANGUAGE Commodore BASIC 

Ltd — Stockport — 061-432 0708 

CBM etie for industrial CASSETTE 300 baud 

accounts, management graphics DISC Twin in-built floppy drives 


and planned maintenance. KEYBOARD QWERTYWICURSORM NUMERIC MFUNCT MW 
DISPLAY TV © MONITOR SUPPLIED@ 


INTERFACE PARA SERIAL 4 BUS 0 
HERTFORDSHIRE GRAPHICS BLOCK USER © 
LINE RES 80 by 25 
COLOUR 16 TEXT 80 by 25 
Alph 
| DORSET cuuien pee wae SOUND Three channels 
Herts. Tel: 0920 68926 
e Specialists in recommending and Notes. The Commodore 720 is the top model in the 7OO range 
supplying complete systems for small of business machines. It is built round the 6509 processor, but 
nk there is a dual processor (Z80 or 8088) option. The machine 
‘has been designed to meet the IEC specifications. The black- 
and-white monitor screen is integral and features tilt and 
LANCASHIRE swivel. The keyboard may be detached. The dual disc drives 


-are built-in to the main housing and use DMA transfer, in- 
COMMODORE BUSINESS oteaciaceceed. 
| 
| 






















S & R BREWSTER LIMITED 


86-88 Union Street, Plymouth PL13HG 
Tel: 0752 665011 Open: 6 days 








PARKSTONE COMPUTER SYSTEMS 
Main Nascom Dealer & Service Centre 
Also Dealers for Gemini, Transtec, 
Genie 
18 Station Road, Lower Parkstone, 
Poole, Dorset BH14 8UB. 


Tel: PARKSTONE (0202) 746555 















SYSTEMS 


Commodore Home Computers 
Software and Hardware 
01 - 228 1637 
2/4 Oxford Road, Manchester 
M1 5QA (Opposite BBC) 


LONDON : 


MAYFAIR MICROS 


for a full range of Commodore 


equipment at very competitive 
| LANCASHIRE prices. Blenheim House, Pod- 
more Road, London SW18 1AJ. 
001-629-2487 


ARATE ENE EAN ER & S Text 
SESS SS 
> 


ZIPPY ELECTRONICS 


West Dorsets Nascom Dealer 


Business and Personal Computer 
Systems, Printers, Software. Tel: 
Bridport (0308) 56539 


Mail Order Service operated. 
Access/Barclaycard accepted 











EV COMPUTING 








Tel: 061-431 4866 
80-BUS SOLUTIONS 


700 Burnage Lane. STAFFS 
Manchester M19. 
- ~* 


COMPUTER 
CACiNEZ™! 


The store with everything for the en- 
thusiast. Official Commodore Dealer 
and service and information centre 
24 The Parade, Silverdale, Newcastle, 
Staffs. Tel: 0782 636911. 






M. D. W. ELECTRONICS 


47 Woodbridge Rd. East, Ipswich 
IP4 5QN. 
Tel: (0473) 78295 
Nascom, Nasbus. Gemini, Multi- 
board Stockists 


O50) \5\/ (0) BLO) Stan -T me 





KEY COMPUTER SERVICES 
Micro mente aha to everyday MEMORY 64K RAM 26K ROM 
business problems. LANGUAGE PET BASIC 
Osborne House, 28 Osborne Road, CASSETTE 300 baud 
Newcastle upon Tyne NE2 2AJ. DISC extra DOS 
Pate Nera abe aleria KEYBOARD QWERTYMCURSORM NUMERIC CIFUNCT YY 
ee ee) Lee TV MM MONITOR SUPPLIEDO 


: INTERFACE PARA & SERIAL Y BUSH 
WALES GRAPHICS BLOCK (yg USER M 
| LINE © RES &by 25 


SIGMA SYSTEMS LTD COLOUR 16 TEXT 40 by 25 
266 North Road, CARDIFF ‘SOUND Three channels 


Tel: 621414 'Notes. The Commodore 64 is a 6510 based micro that can also 

Also authorised dealer for CBM use Pascal, COMAL, LOGO, FORTH and PILOT. Programs 
Digital, IBM, ACT, Sirius & can be loaded from cassette recorder or disc drives, both 
Aprico ‘extra, or cartridges. The various peripherals include printer, 


f I 
joysticks and games paddles. 
WEST MIDLANDS eee 





EYTE-KITE 


Llandaff R & TV Ltd, 24-26 High St., 
Llandaff, Cardiff. Tel: 0222 563760 


“hee Mk Sot oF UN Aor 
YVascom. Vern Lucas Li gic, UAL 


Networks, Dragon, Peripherals 






















MICRO BUSINESS CENTRE LTD 
Wolverhampton Computer Centre, 17- 
19 Lichfield Street, Wolverhampton, 
West Midlands WV1 1EA. Tel: (0902) 
29907 or 29021 
Complete range of Commodore pro- 
ducts always available. 


"7e)-1'4-1711;) ee 
| 
| 






WARWICKSHIRE 


BUSINESS & LEISURE 
MICROCOMPUTERS 
16 The Square, Kenilworth, 
Warwickshire CV8 1EB 













Tel: 0926 512127 


We are the largest Lucas Nascom 

dealer in the UK and carry the greatest 

variety of products for this range of 
computers. 


YORKSHIRE ELECTRONICS 


Commodore Appointed 
Commerical Systems Dealer 
Full range of peripherals and 
Software available 
Caxton House, 17 Fountain St., 
Morley, West Yorkshire. 
Tel: 0532 522181 
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SHARP 





MICRODEALER 








SHARP MZ-80A 















MEMORY 48K RAM 4K ROM 
LANGUAGE Microsoft BASIC 31421411212 
CASSETTE 1200 baud (built-in) 
DISC extra DOS _ Ro eye 
KEYBOARD ERTYS& CURSOR BY NUMERIC’ FUNC Kuma Computers @8) 
DISPLAY TVO MONITORWS/SUPPLIED WY Limited 
INTERFACE PARAS, SERIALO BUSS Fully support with software and 
1 ey is a. — T c : . r 
GRAPHICS LOL USERU _ MZ60A, and MZ80B. 
LINED RES 80 by 50 11 York Road, Maidenhead, 
COI, Ol UR TEX roc + a AC Berks. Ah I a _ 
SOUND Single channel 
Notes: The Sharp MZ-80A is a 280 based micro. Ar ] 
printer, floppy disc unit and « othe r peripherals ar t COMPUTER 100 
languages can also hie used such as Pascal merely by replacing t! 181 Oxford House, Reading, 
tape. With the floppy disc optio: the machine can respond to highe! Berks RG17UZ 
level soitware such as Dis BASIC and FDOS ee stware is TEL: 0734 591616 
compiler). A small range of business and educational software i: rai. 
available. The supplier i s Sharp El ectronics (UK) Ltd, Th Road One of the UKs largest stockists 


Manchester M10 9BE 


Newton Heath, 


CAMBRIDGESHIRE 


MS CONSULTANTS 
(CAMBRIDGE) LTD 


Bridgefoot House, 


159 High St., Huntingdon 
PE18 6TF. Tel: 0480 51721 
Specialists in Sharp 
Hardware & Sottware 





LANCASHIRE 


vs 12-14 Avenham St. 
\Sumita Preston (0772) 51686 





SALES — SERViCE | 
SOFTWARE 


MEMORY 

LANGUAGE 

CASSETTE 
pullt-11 


DISC € axtré a 
KEYBOARD Ow! JERTY aa 
DISPLAY 

INTERFACE 

GRAPHICS 


64K RAM 2K ROM 
BASIC (on tape) 
1800 bauc 


1s n 


SHARP CENTRE 


16 Melville Street, Lincoln. 
Tel: Lincoln 32379 


All Sharp Microcomputers. Specialists 
in Industrial Process Control Systems 
Customers include British Telecom 
M.O.D CRA & CTA Members 


SOUND 


The Sharp MZ-80B 
languages can 
ing gs in ROM. 


Notes: 
be loaded as fhe 4 
Expansion 
S0FB floppy disc drive are alsc 
Electronics (UK) Ltd, Thorp Re 





LONDON . 


SHARPSOFT LTD. 


With the Sharp user in mind 
Sharp MZ 700 including cassette 
£199.99 


Sharpsoft Ltd, Crisallen House, 
86-90 Paul Street, London EC2. 
Tel: 01 - 729 5588. 





MICROS FOR MANAGERS 


149 Gloucester Rd., 
London SW7 4TH 
New program for PC1251: cost 


estimatic and StOCK adaitive. 
PC5000 stock £1639. Ask us for 
portable and pocket computer 
hardware and software 

Tel: 01-370 5125 

for appointment 




















MIDLANDS 


JAXREST LTD 
Linton House, 
Catherine Street, Aston, 
Birmingham. 
Tel: 021 328 0543 


Sharp Service and Support 







NORFOLK 


GRASSROOT COMPUTERS 
25 Wellington Rd., Dereham. 
TEL: 0362 4640 


Small Dusiness nputing 









SCOTLAND 


micro change Itd 
170 Eastwood Mains Road, Clarkston, 
Glasgow G76. Tel: 041- 554 7623 
SHARP ALTOS SUPERBRAIN 


Ssottware an 
tailor 


f Lowdon Bros. & C 
rs Ltd). PO Box 53, Blackn 5 oad 
Dun dee DD1 ~4 IG 


Tel: (0382) 22314 


LOWDATA SYSTEMS 


Full range of Sharp Equipment stocked 


STEVE’S COMPUTER COMPANY LTD 
CASTLE ARCADE, CARDIFF. 
Tel: 0222 — 371578 


OPEN: Mon — Sat. 9 - 5.30 
omponents to Computers 


WEST SUSSEX 


MICROCENTRE LTD. 
SYSTEMS, SOFTWARE 


SERVICE, SUPPORT 


28-30 Station Road, 
Bognor Regis, Sussex. 
TEL: 0243 827779 


PROGRAM 1 


For Business Software 


35 Albion Street, Hull. 
TEL: 0482 20022 





78 COMPUTING TODAY AUGUST 1984 





AT A GLANCE...AT A GLANCE...ATA GLANCE...AT A GLANCE...AT A GLANCE...AT A GLANCE... 





BERKSHIRE 


PRINTER 
SPECIALISTS 

C -€ ON printer selectior 
Epson & Microline stockists. Interfaces & C 
available for all pop: 


6 THE BIRCHWOODS, TILEHURST. READING. 
TEL: 0734 25226 


Se 


Churchfield Ra., 
Frodsham. 
Tel: (0928) 35110 


Computer 
dunk Shop 


We Buy, Sell, Break Computers & Peripherals 


590 


10 Waterloo Rd, Widnes. Halton. Tel: 051 420 45s 


_ CORNWALL/DEVON 


A. B. & C. COMPUTERS (CT) 


Duchy House, 6 Lower Ayimer Sq., St. Austell. 
Tel: 0726 64463/67337 


s o ~ a r> ~ - ~ n _ 
ros. Printers. books and 


HERTFORDSHIRE 








NEWBRAIN & SANYO 
HARDWARE & SOFTWARE 
Printers, Epson, KDC, Juki etc. Monitors. Tape 
Recorders, Books, Expansions, CP/M. Sanyo 550, 
555 Computers. Access/Mail Order. Ask for details 
ANGELA ENTERPRISES 
Tel: Stevenage (0438) 812439 anytime 


LANCASHIRE 


MILROS 


51 QUEEN STREET, MORECAMBE. 
Tel: 411435. Also open Sundays. 
nclair modore. Acorn/BBC + Dragor 


n 















29 Hanging Ditch, Manchester. 
Tel: 061 832 2269 
Open: Mon-Fri 9.30am-5.30pm. 
Sat 10-5. Retail and Wholesale. 


LINCOLNSHIRE 


|SHARP CENTRE Mi 
16 Melville Street, Samii 





Lincoln. 
Tel: Lincoln 32379. 
Open: Yam-5.30pm closed Wed. 
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LONDON 


A. J. Duchesne 


(Computer Consultants) Limited 
Specialists in Small Business Computing 
10-12 Creechurch Lane, London EC3A 5AY 
Telephone: 01-621 0433 












COMPUTING + 
264 Earls Court Road, London SWS5. Tel: 01 
373 4508 or 01 373 5000 Ext 240 Suppliers of 
mint and micro computers for home an of Ce 
use, together with supporting software. Leading 
manufacturers products supplied 


Come and see the Mackintosh 


elena ame) lele). 


CROYDON COMPUTER CENTRE 
Authorised Acorn Service Centre 

29a Brigstock Rd., Thornton Heath, 
Surrey. Tel: 01 - 689 1280 

BBC. Acorn. Electron. Genie. Oric 
Kaga Microvitek Zenith Monitors 
OK! 80, 82A + 84 Printers. Paper 
Ribbons. Software etc. BUY-HIRE 


MIDDLESEX ; 
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L.B. ELECTRONICS 
11 Hercies Rd, Hillingdon. 

Tel: Uxbridge 55399 (24hr ans. service) 
Open: 6 days, 9.30am-6pm, (lunch 1-2.15 except Sat 
Surplus equipment, memory, EPROMs etc. Also 
established mail order service 


SCREENS MICROCOMPUTERS 
6 Main Avenue. Moor Park. Northwood 
Middlesex 
Tel: Northwood (09274) 20664 


Official Dealers for: Acorn. Atari. Commodore 
Dragon, Memotech, Oric, Sinclair, Sirius 
Apricot 


NORFOLK | 


ANGLIA COMPUTER CENTRE 


88 St Benedicts Street, 
Norwich. 
Tel: (0603) 29652/26002. 
Open: 6 days 9Jam-5.30pm. 








NORTHAMPTONSHIRE | 


NORTHAMPTON 
HOME COMPUTER CENTRE 
58A Wellingborough Road, Northampton. 





Tel: (0604) 22539 
Open: 6 days a week from 10 - 6 
ZX81 REPAIR SERVICE 


NORTHERN IRELAND 
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VICTOR MORRIS GLascow 


TANDY TRS 80, VIC 20, VIDEO GENIE, APPLE 
PANASONIC, CUMANA, EPSOM ETC. 


340 Argyle Street, Glasgow G2: 041 2218958 


24 Gloucester Road, Brighton. 
Tel: 0273-698424. 
Open: Mon-Fri 10am-5.30pm, 
Sat 9am-5.30pm. 


TYNE AND WEAR 


HCCS associates 
533 Durham Rd., Low Fell, 
Gateshead. Tel. Newcastle 821924. 
Open: 6 days 9am-5.30pm (Sat 
10am-5.30pm). Specialists in: Acorn, 
BBC, Video Genie, VIC 20. 












STEVE’S COMPUTER COMPANY LTD 


CASTLE ARCADE, CARDIFF 
Tel: 0222 — 371578 


OPEN: Mon — Sat. 9 -- 5.30 
FOR COMPONENTS TO COMPUTERS 









SIR Computers Ltd. 
91 Whitchurch Road, Cardiff. 


Tel: 0222 - 21341 
GAG — 


WARWICKSHIRE | 


BEM fT licroLentre 
OEM COMPUTER SYSTEMS 
9-11 Regent Street, Rugby CV21 2PE, 


Tel: (0788) 70522/3/4 


THE FINEST COMPUTER SHOWROOMS IN THE MIDLANDS 




















BUSINESS & LEISURE 
MICROCOMPUTERS 
16 The Square, Kenilworth. 
Tel: Kenilworth 512127. \S=% 
Open: Mon-Fri Qam-bpm. % day Thur 
(lunch 1-2). Retail and Wholesale. 











| YORKSHIRE 


BRADFORD’S COMPUTER 
SHOP 
at Thomas Wright (Bradford) 
Ltd., Thorite House, Laisterdyke. 
Tel: Bradford 668890. 
Open: Mon-Fri 8.45-5.30. (Sat 12am) 
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ADVERTISERS INDEX 


Acorn Computers Opus Supplies 
Akhter Instruments Oxford Computer Systems 


Beebugsoft Picturesque 
Brother Industries F.C. Silica Shop 


Calco Software S. P. Electronics 


Supersoft 

Virgin Games Centre 
Walker Computer Services 
Mr Watson 





COMPUTING TODAY 





CLASSIFIED ADVERTISEMENT — ORDER FORM 


If you have something to sell now’s your chance! Don’t turn the page — turn to us! 
Rates of charge: 35p per word per issue (minimum of 15 words).Please state classification 


and post to: COMPUTING TODAY, CLASSIFIED DEPARTMENT 
1 GOLDEN SQUARE, LONDON wW1. 





Please place my advert in COMPUTING TODAY for...... issues Commencing as soon as possible. 


| am enclosing my Cheque/Posta! Order/International Money Please use BLOCK CAPITALS and include post codes. 
Order for (delete as necessary) €. (Made payable to ASP Ltd) 


OR Debit my Access/Barclaycard @@ 

| (Delete as necessary) f Pp. N 
Abi i so ak iS EH Et em er Mee 
[ All classified advertisements must be paid for in advance. Daytime Tel. No. 


Low aay aE et a] a CELTS aes: = ee PSEA a 


OHHH HEHEHE EHH EEE ETOH ETERS EEE HEE HEHEHE SHEE EEEES 





FE SL OF EC IRS ECSA US TSS SOOO ECECCE CHSESCVSC CHOCO SCS SSCEKDOSCREROPESCROO DEORE SO Se RO 





ieee eh ee ee a eT he UU Pity eh ws fT ee de eae ey 


COPCOHSHHSHSHHHKHHOHHEHOHOHOHHHSCHHOHCEHOCECE DO ROOCOORERSOROSOCECES 


f~ Please include my t business details in the next available issue of Computing Today: 





1 
Be | 

| emer TINE pod AE Oe a he Dain iaaty ae Ge DEERE ee wd Ki aak week diwrens a ~~. . 
| Address: .........-- 0. e ee eeeeeeeeee eee eeetee ttt teeter \N % : 
: , O ae 
OO'y 

wey Se 
| CEOS up caiec ee ia Oscars Ves ee ed ee tA aod co dow cee wrk Vee ~~ =» | 
! | 
| Contact [Bite AAC” N87): en, eee ae rn ae 1 ee, eee eee ee ne ere ee ! 
a Post To: Computamart, Computing Today, 145 Charing Cross Rd., London WC2H OGE. cba ae fies aE oe i 
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Lineage: 40p per word. 


COMPUTING TODAY 
EN 


TOOTS: 
VISA 
PREIS, 





Semi display: £9.00 per single column centimetre 
Ring for information on series bookings/discounts. 


All advertisements in this section must be prepaid. 
Advertisements are accepted subject to the terms andconditions 
printed on the advertisement rate card (available on request). 





SOFTWARE APPLICATIONS 










Extender: A Machine Code 

Utility Program For The LIl 

TRS80 & Video Centre 
comprising of: 

BASYST: Converts Basic programs 
into System format with six letter file 
names. CLOSE: Closes program off 
prior to MERGEing. DATA COM- 
PILER: Compiles data statements 
between two memory addresses 
FIND & RESCUE: Reinstates Basic 
program, even when NEWed. HEX 
TO DEC: Converts 1 or 2 byte 
hexadecimal number to decimal 
equivalent. LOWCASE: Changes 
high case letters to lowcase 
MERGE: Merges two programs 
together. RENUMBER: Renumbers 
whole or part of Basic program 
ONESTROKE Allows multiple 
entry of defined keywords. PUT 
Puts a 1K block of memory to 
screen. SQUASH: Removes. all 
unwanted spaces in program listing 
RUN: Runs Basic program with 
single keystroke. SINGLE & PAGE 
Allows single line or page scrolling 
SYSTEM TAPE COPIER: Allows the 























copying of all system tapes 
VALIDATE: Validates all line 
branches in listing. 

£9.95 from: 






OLYMPIC SOFTWARE, 
15 Arnhem Close, Aldershot, 


Hants, GU11 1RJ. 










FERRANTI 
|.Te.C. 


BBC MICRO 
CASSETTE LEADS 


(a) 7 pin din to 7 pin din 
(D) 7. DIN Gi Io 2X 3.5 
mm & 1 x 2.5 mm Jacks 
(Cc) 7 pin din to 3 pin din 
& 1 x 2.5 mm Jack 












ONLY £2.25 ea inc p&p/VAT 


Ferranti Oldham ITeC 
Department 101, Orme Mill, 
Crimbles Street, Waterhead, 
Oldham OL4 3JA 











ALARMS 


BURGLAR ALARM equipment. 
Please visit our 2,000 sq. ft. show- 
rooms or write or phone for your 
free catalogue. C.W.A.S. Ltd., 100 
Rooley Avenue, Bradford BD6 
1DB. Telephone: 0274 731532 
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SPECTRUM TAPE COPY. Fully 
assembled and commented 
machine code listing with Hex 
loader and full instructions 
Cheques for £2.00 etc to D. 
Woodthorpe, 64 Abingdon Avenue. 
Lincoln. 


M & J SOFTWARE 


fig-Forth Assembly Source List- 
be EE PP Eee £7 each 
Available for the following proces- 
sors: 6502,.Z280. 6809, 8080, 1802 
9900, 6800, 8086/88 and PDP11 
fig-Forth Installation Manual £5 
A complete ‘how to do it’ guide to the 
implementation of FORTH from the 
above listings 
Cheques and POs to: 

M & J SOFTWARE, 34 Grays 
Close, Scholar Green, Stoke-on- 
Trent ST7 3LU. 
Tel: (0782) 517876 


COMMODORE 64 
“SPRITER” 
Enables single or multicolour 
sprites to be designed interactively 
compiled and saved to tape. Tape 
£3.50 to 
P. STRATFORD 
43 Chanctonbury Drive, 
Shoreham, Sussex BN4 5FR 


























MRL PRINTERS 
Chinwa CP80 195 (224 inc VAT). Star 
Gemini 10X (120 cps 80 col) 215 (247 
inc VAT). Star Gemini 15X (120 cps 132 
col) 335 (385 inc VAT). Star Delta 10 
(160 cps 80 col) 359 (413 inc VAT). Juki 
Daisywheel (18 cps) 369 (424 inc VAT) 
Plus paper, ribbons & refills etc. Free 
delivery by Securicor 
RING 0506 31605 FOR DETAILS 
MRL Printer Interfaces 
Available to fit most micros: Electron. 
Spectrum, Atari, Commodore 64 incl 
free cable, free delivery. From £39.95 
inc VAT 

RING 0506 31605 FOR DETAILS 
Selection of Disc Drives at bargain 
prices from £135 (inc VAT) to fit BBC, 

Tandy, Nascom etc 

MICRO RESEARCH (Freepost) 
8 Napier Square, Houston Industrial 

Estate, Livingstone, West Lothian 
EH54 5DG 


SIT’NS VACANT 


Are you 
A MICRO 
ENTHUSIAST 


Technically competent with a 
professional approach? 
Have a Current driving 

licence? 

THEN you may be interested in 





working as an engineer on IBM. 
ACT, DEC and SANYO personal 
computers, as well as a variety of 
printers and other devices, based at 
new premises in the West End of 
London. Please send full details in 
writing to SCC, Litchfield House, 


85 Smalibrook, Queensway, 
Birmingham B5 4JF. 





™ ACCESSORIES 





01-437 0699 


Send your requirements to: 

IAN ATKINSON 

ASP LTD, 1 GOLDEN SQUARE, 
LONDON W1 


BLANK CASSETTES 


Guaranteed top quality computer 
audio cassettes at great budget prices 
Packed in boxes of 10 with labels, 












inlay cards and library case. 

Prices include VAT, post and packing. 
O(CS) _£435 O(Ci0) £440 
(C12) _£445 OCS) £4.50 

O(C30) _£4.70 (O(Cé60) _£5.30 

O (C90). _£7.00 

BASF FLOPPY DISCS 

Prices of boxes of 10 






2 5'Single side/ Single density _£18 






ZC 5'4 Double side/Double density £19 
0 54 Double side/Quad density _ £23 
DISC DRIVES 







Include Manual, Leads, Utilities Disc 

O TEAC 55A 40 tracks — £139 each 

CO TEAC 55F 40/80 switchable D.S. - 

£209 each FREE DELIVERY UK ONLY 
Indicate quantity of each product required 
in boxes 

Cheque/P.O. enclosedforS ___ 


FINES orramoasiaiit aceon, 
PUP ihinndt eaiaennlawaninneaics 











PROFESSIONAL MAGNETICS LTD 
Cassette House, 329 Hunslet Road, Leeds LS10 3YY 
FREEPOST Tel. (0532) 706066 CT 






COMPUTER 
CABINETS 


A range of cabinets and housing 
units especially designed for your 
home computer system. Keep it 
dust free, tidy and secure 


Send SAE for colour brochure 


MARCOL CABINETS 
Solent Business Centre, 
Millbrook Road West, 
Southampton 
Tel: 0703 731168 









HARDWARE 


NEWBRAIN & 









Professiona! Micro Computers for 
the price of hobby machines 






NEWBRAIN ON SPECIAL 
OFFER 
With over £200.00 free software 
(Accounts, databases, etc. etc) 
Limited Offer-ring now! 

SANYO 550/555 COMPUTERS 

Micropro Wordstar, Calcstar etc at 
no extra cost! Printers: Epson 
KDC, Juki. Shinwa, Daisystep 2000 
etc Sanyo Monitors & Recorders. 
Call STEVENAGE (0438) 812439 
anytime for hardware/software lists 
Mail Order anc Access facilities 
ANGELA ENTERPRISES 


4 Ninnings Lane, Rabley Heath, 
Welwyn, Herts AL6 9TD. 


























ELIMINATE 
FAULTY 
CASSETTES 





DataClone is the first 
company in the UK established 
specifically for the duplication 
of data cassettes 


All other duplicating houses 
are audio orientated — only 
DataClone has a duplicating 
system designed from scratch 
purely to handle computer 
information 

The resuit? 

Greatly improved reliability in 
data transfer rates from 300 to 
beyond 2400 baud — pre- 
viously unattainable. 


All formats catered for. 
Quantities from 100 to infinity 
Contact us now for brochure 
DataClone — _ the ffirst 


specialist service for computer 
cassettes. 


DATACLONE 


Unit 1, Roslin Square, Roslin Rd., 
Acton, London W3. 


Tel: 01-993 2134 Telex: 21879 


ele} €-97 V Te 





a=] oy Wale) t- 


PARAPHYSICS Journal! (Russian 
Translations); Psychotronics. 
Kirlianography, Heliphonic Music. 
Telekinetics, Computer Software 
SAE 4 x 9”. Paralab, Downton. 
Wiltshire 
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HARDWARE AND 





- SOFTWARE 









COMPUTING + 


264 Earls Court Rd, 
London SWS5. Tel: 01- 
373 4508 or 01-373 
5000 Ext 240. 

















Suppliers of mini and 
micro computers for 
home and office use, 
together with supporting 
software. Leading manu- 
facturers’ products 
supplied. 


Just in from APPLE the 
MACKINTOSH and 2C 
bringing Hi-TECHNO- 
LOGY to your fingers. 


SOFTWARE 
HOME FINANCE 


SHARP MZ80A with Seikosha 
printer. Excellent condition. still 
boxed, little used. Various software 
and manuals. Best offer over £600 
Telephone Amersham 22130 


19Mb HARD DISC Drive with 
power supply. User manual and 
application guide. Good working 
condition £175 delivered. Tel: 
(02602) 71290 


ARCADE GAME P.C.B:S. original 
Hustler, Frogger, Kong, Defender 
etc. Power supplies, R.G.B mon- 
itors new or used. Phone Npton 
0604 716646 





ORIC/ATMOS persona! finance 
package for home, club or small 
business. Details from: Softbacks 
(Dept CT), FREEPOST. Watford 
WD1 8FR (no stamp needed) 


WANT TO FILL THIS 


SPACE? 


RING IAN NOW ON 01-437 0699 


\ 


Oxford Computer Systems 
(Software) Ltd 
Hensington Road, 
Woodstock, 

Oxford OX7 1JR, England 
Telephone (0993) 812700 

Telex 83147 Ref. OCSL 
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@ PASCAL is the world’s most 
rele) ele lr-\me)corele-lanlanliare 
language after BASIC 


@ PASCAL is FAST... up to 20 


times the speed of BASIC 


WHAT IS OXFORD PASCAL? 


OXFORD PASCAL is a 
COMPLETE implementation 
fo) Mial=m ole)eleli-lm ecole e-lananliale 
lave [Ut-(e[-m evate Ova Mmavlalaliare ela) 
the Commodore 64 


GRAPHICS & SOUND 


With the OXFORD extensions 


(on ovate) @7,\ mm '2e)0mer- lan elcerele-litlan— 


fol Vaal lave mele-le)al(e-e- ale) 
astounding sound 


ACORN ATOM: fully expanded. 
floating point power supply. As 
new £100.00. Tel: 01-346 7055 


OLIVETTI TE-300 teleprinter with 
Stand. Very good condition. £70 
Telephone 061-748-7160 


ATARI 800 64K computer com- 
plete with 2 joysticks, cassette dec. 
3 cartridges, 4 tapes. literature all 
new. Selling because emigrating 
F3000n0. Phone evenings 670 
4625 


CT WOULD LIKE 
TO APOLOGISE 
FOR ANY 
INCONVENIENCE 
CAUSED TO 
CUSTOMERS OF 
G.C. BUNCE AND 
SONS BY 
AN INCORRECT 
TELEPHONE NO. 
IN THE MAY/ 
JUNE ISSUES. 
THE CORRECT 
TELEPHONE 
NO. IS 
06286 61696 





SOFTWARE 
GAMES 
ATARI 400/800 
TRS80 1/3 GENIE I/II 


Arcade and adventure games, 
educational and utility pro- 


grams. On tape. SAE for details. ° 


Please state micro 
T. Smith Software (Dept CT) 
20 Wesley Road, Portsmouth, 
Hants PO3 5ER 
MAIL ORDER ONLY PLEASE 





747 PILOT for VIC20 with super 


expander Ca 


COMPUTER SOFTWARE and 
accessories, send 2 x 16p stamps 
for free lists stating which 
computer to: Electronic Facilities, 3 
High Street, Sanay, Beds SG19 
1AG 


REPAIRS 


COMMODORE REPAIRS 


rOVvVeRd 










ervice engin- 
arantee units 





SS ee talc AC 
ore details tel OF o/ 


G. C. Bunce & Son 
36 Burlington Road, Burnham, 
Bucks SL1 7BQ. 


TEL: (06286 61696) 


FUTURE WITH 
COMPUTERS 


WHAT DO | GET? 


DEPENDS ON PASCAL 


With the cassette version of OXFORD PASCAL you get: 
@ A powerful text editor for preparing PASCAL 
re) ceye leat 
@ Aresident compiler giving 14k of user RAM 
@ A powerful set of colour graphics and sound 
extensions to standard PASCAL 


With the disk version of OXFORD PASCAL you get: | 


@ Allthe above, PLUS 


Te Witlimels.a coke aeons) cim-ydeleidaremial= 
entire memory of the 64 for PASCAL programs. 


HOW MUCH DOES OXFORD PASCAL COST? 


Cassette version (resident compiler only 
Full disk compiler (1541, 4040, 8050, 


8250 drives) 


Prices are exclusive of VAT. There is also a small 


charge for post and packing. 
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A COMPLETE PACKAGE - ALL THIS FOR £499! 
* 80K" RAM (Exp to 144K) Ana ES 


7 
‘COLSTON wae 


* Full Stroke Keyboard 

* 206K Data Storage Unit 

* Daisywheel Printer 

* Built-in Word Processing 

* Buck Rogers Arcade Game 


* Colecovision Compatible 


Inc VAT 


QUITE SIMPLY - VALUE FOR MONEY! 


If you're looking for real value in a computer system, one which can handle anything from serious Word Processing to 
enhanced Colecovision style video games such as Buck Rogers, look no further. The Coleco Adam is here with a package 
which will make you wonder if you're dreaming when we tel! you about it. A price breakthrough in computer systems, Adam is 
comprised of an 80K RAM memory console’ with a built-in 256K digital data drive; a professional quality, stepped and 
sculptured 75 key full-stroke keyboard; a letter quality daisywheel printer and a full word processing program built into the 
Console. Two additional pieces of software, Smart BASIC and also ‘Buck Rogers - Planet of Zoom' (the ultimate in advanced 
video games), are included as well as a blank digital data pack. Adam can be used with any domestic colour Television set. 


MEMORY CONSOLE/DATA DRIVE: ‘the heart of the Adam system is the 40K ROM and 64K RAM memory 
console which combines with the 32K ROM and 16K RAM in Colecovision to give you a total of 72K ROM (including 24K 
cartridge ROM) and 80K RAM (expandable to 144K). Built into the memory console is a digital data drive which accepts 
Adam's digital data packs, a fast and reliable mass storage medium that is capable of storing 256K of information, that's 
about 250 pages of double spaced text! The console is also designed to accomodate a second optional digital data drive 


FULL STROKE KEYBOARD: The Adam keyboard has been designed as a professional quality keyboard that 
combines ease of use with an impressive array of features. It is stepped and sculptured for maximum efficiency and has 75 
full stroke keys which include 6 colour coded Smart Keys which are redefined for each new application; 10 command keys 
which are dedicated to the word processing function, and 5 cursor control keys for easy positioning of the cursor at any 
point on the screen. You can attach a Colecovision controller to the keyboard to function as a numeric keypad for easy 
data entry. It can also be held like a calculator, a feature which makes working with numbers particularly easy. The joystick 
part of the hand controller can be used in the same way as the cursor control keys, to move the cursor around the screen. 


LETTER QUALITY PRINTER: The Smart Writer letter quality daisywhee! printer is a bi-directional 80 column 


printer which prints at a rate of 120 words per minute. It uses standard interchangeable daisywheels, so a variety of 
typestyles are available. The printer has a 9.5 inch wide carriage for either single sheets or continuous fan fold paper and 
uses standard carbon ribbons. It is comparable to many printers which cost as much as the total Adam package. The 
printer can be used either with the Adam's Smart Writer word processing program or as a stand alone electronic typewriter 


BUILT-IN WORD PROCESSOR: adam comes with Smart Writer word processing built-in. This program is so 


easy to use that you only have to turn the power on and the word processor is on line and ready to go. Detailed instruction 
books are not necessary as the Computer guides you step by step, working from a series of Menu commanas. It enables 
you to type in text, then completely edit or revise it with the touch of a few keys. Changes are readily made and a series of 
queries from the computer confirm your intentions, so that you can continuously double check yOur work as you type. 


COMPATIBILITY WITH COLECOVISION: By using high speed interactive microprocessors in each of the 
modules, the Coleco Adam is designed to take additional advantage of both the 32K ROM and 16K RAM memory capability 
in the Colecovision. If you do not already own a Colecovision Console (£99 inc VAT), then you will need to purchase this 
when you initially purchase your Adam Computer package (£499 inc VAT), making a total purchase price of (£598 inc VAT) 


WHAT IS COLECOVISION: Colecovision is one of the worlds most powerful video game systems, capable of 


displaying arcade quality colour graphics of incredible quality on a standard Colour TV set. The console (see picture 
bottom left) accepts 24K ROM cartridges such as Turbo and Zaxxon and is supplied with the popular Donkey Kong 
cartridge and a pair of joystick controllers. Colecovision has a range of licenced arcade hits available such as: Gorf. 
Carnival, Cosmic Avenger, Mouse Trap, Ladybug, Venture, Smurf, Pepper Il, Space Panic, Looping, Space Fury, Mr Do, 
Time Pilot, Wizard of Wor and many others. So there you have it, Adam plus Colecovision the unbeatable combination 
Send the coupon below for your FREE copy of our 12 page Colour brochure giving details on the complete Adam system 


SILICA SHOP LTD., 1-4 The Mews, Hatherley Road, Sidcup, Kent, DA14 4DX Tel: 01-309 1111 or 01-301 1111 


RDER NOW VOR SEND FOR A FREE COLOUR BR URE 


o: SILICA SHOP LTD, Dept CT 0884, 1-4 The Mews, Hatherley Roa 
Sidcup, Kent, DA14 4DX Telephone: 01-309 1111 or 01-301 1111 


LITERATURE REQUEST: 
Please send me your FREE 12 page colour brochure on Colecovision/Adam 


P— 


O lowna Videogame O lowna Computer 
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MEMORY CONSOLE & DATA DRIVE 













































Mr/Mrs/Ms: Initials: Surname: 
Address: 







Postcode: 
ORDER REQUEST: 


[1] Adam (add-on package only) £499 inc VAT 
OM Adam & Colecovision (£499+ £99) £598 inc VAT 


C1) | enclose Cheque/P.0. payable to Silica Shop Limited 
() CREDIT CARD - Please debit my Access/Barclaycard/Visa/Am Ex/Diners Club 


Card Number 
Rey 
ee 


Please send me: 
























COLECOVISION GAMES CONSOLE 





UPERSOF 


AnuDFIRE £6-9° 


SUPERSOFT, Winchester House, Canning Road, Wealdstone, Harrow, Middlesex, HA3 7SJ Telephone: 01-861 1166 





